Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim sTable As String
        Dim sSql As String
        Dim sValues As String
        Dim sTextBox1 As String
        Dim sPreis As String
        Dim sArtikel As String
        Dim bResult As Boolean
        Dim i As Integer
        Dim Summe As Decimal
 
        Dim oCommand As OleDb.OleDbCommand
        Dim oDataReader As OleDb.OleDbDataReader
        Dim oConnection As OleDb.OleDbConnection
 
        Dim sAppPath As String
        sAppPath = Application.StartupPath
 
        oConnection = New OleDb.OleDbConnection
        oConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=" & sAppPath & "\db1.mdb;"
 
        sTable = "preise"
        sValues = "*"
        sTextBox1 = TextBox1.Text
        'sTextBox2 = TextBox2.Text
 
        'Suchen nach Artikel und Preis in der Datenbank
        sSql = "SELECT " & sValues & " FROM " & sTable & " WHERE artikel= '" & _
          sTextBox1 & "'"
 
        Try
            oConnection.Open()
            oCommand = New OleDb.OleDbCommand(sSql, oConnection)
            oDataReader = oCommand.ExecuteReader()
 
            'Falls in der Datenbank Artikel abrufen
            While oDataReader.Read
                With oDataReader
                    bResult = True
                    sPreis = .Item("preis").....