Public Function sqlSelect(ByVal tabelle As String, ByVal spalten As String, _
  ByVal bedingung As String) As String
 
 
        Dim SQL As String
 
        Const ConnectionString = "DRIVER={MySQL ODBC 3.51" & _
          "Driver};SERVER=keller;Trusted_connection=yes;DATABASE=muellerdb;"
 
        Dim co As New OdbcConnection(ConnectionString)
        Dim ds As New DataSet
        Dim dr As DataRow
 
        Dim kundennummer As String
 
        'SQL-Befehl für die Tabelle Kundenstammanschrift
        SQL = "Select " & spalten & " From " & tabelle & " Where " & bedingung
 
        'ein neuer Data-adapter, der den SQL-Befehl über die Verbindung 
        ' co_Suche ausführt'
        Dim da As New OdbcDataAdapter(SQL, co)
 
        Try
 
            'Verbdindung wird geöffnet
            co.Open()
 
            'der DataAdapter füllt das DataSet mit den Einträgen aus tabelle
            da.Fill(ds, tabelle)  <--------------------------- hier tritt der _
              Fehler JETZT auf
 
 
            'Die Daten vom DataSet werden an ein DataTable übergeben
            DataTable() = ds.Tables(tabelle)   
 
            'Die erste reihe wird ausgewählt
            If DataTable().Rows.Count = 0 Then
                MsgBox("Es wurden keine passenden Einträge gefunden", _
                  MsgBoxStyle.OKOnly, "")
                Exit Function
            Else
                dr = DataTable.Rows(0)
            End If
 
            If spalten = "*" Then
                DataTable() = ds.Tables(tabelle)
                co.Close()
                Exit Function
            Else
                If spalten.IndexOf(",") >= 0 Then
                    DataTable() = ds.Tables(tabelle)
                    co.Close()
                    Exit Function
                Else
                    Return dr.Item(spalten)
                End If
            End If
 
        Catch ex As System.Exception
            MessageBox.Show(ex.ToString())
        End Try
        co.Close()
 
    End Function