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)
 
 
            'Die Daten vom DataSet werden an ein DataTable übergeben
            DataTable() = ds.Tables(tabelle)   <----------------hier tritt der _
              fehler auf ------------
 
            '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