Protected Sub Repeater1_ItemCommand(ByVal source As Object, ByVal e As _
  System.Web.UI.WebControls.RepeaterCommandEventArgs) Handles _
  Repeater1.ItemCommand
 
 
  Dim AusgewArtikel As String = ""
  AusgewArtikel = CType(e.CommandSource, Button).ToolTip
 
  'Ausgew. Artikel einelesen
  Dim TempDatenbank As String = Server.MapPath(Datenbank)
 
  Using objVerbindung As New OleDbConnection( _
    "Provider=Microsoft.Jet.oledb.4.0;Data Source= '" & TempDatenbank & "'")
 
    objVerbindung.Open()
 
  	Dim sqltext as string = "select * from Artikel where Artikelnummer = '" & _
    AusgewArtikel & "'"
 
  	Using objBefehl As New OleDbCommand(sqltext, objVerbindung)
 
		  Dim objdaten As OleDbDataReader = objBefehl.ExecuteReader()
 
  		If objdaten.Read() Then
  			Dim ArtikelID As String = objdaten.Item("ArtikelID").ToString()
        Dim Artikelnummer As String = objdaten.Item("Artikelnummer").ToString()
        Dim ArtikelBezeichnung As String = objdaten.Item( _
          "ArtikelBezeichnung").ToString()
        Dim ArtikelPreis As String = objdaten.Item("ArtikelPreis").ToString()
 
        ArtikelInWarenkorb(Artikelnummer, Label2.Text, ArtikelID, ArtikelPreis)
      End If
 
    End Using
 
  End Using 
 
End Sub