Dim SQL As String
        Dim connectionstring As String
        connectionstring = "DRIVER={MySQL ODBC 3.51" & _
          "Driver};SERVER=fileserver;Trusted_connection=yes;DATABASE=" & _
          database & ";"
 
        Dim co As New OdbcConnection(ConnectionString)
        Dim ds As New DataSet
        Dim dr As DataRow
 
        Try
 
            Dim kundennummer As String
 
            'SQL-Befehl fuer die Tabelle Kundenstammanschrift
            If bedingung = Nothing Then
                SQL = "Select " & spalten & " From " & tabelle
            Else
                SQL = "Select " & spalten & " From " & tabelle & " Where " & _
                  bedingung
            End If
 
 
            'ein neuer Data-adapter, der den SQL-Befehl ueber die Verbindung 
            ' co_Suche ausfuehrt'
            Dim da As New OdbcDataAdapter(SQL, co)
 
 
            'der DataAdapter fuellt das DataSet mit den Einträgen aus 
            ' Kundenstammanschrift
            Try
                da.Fill(ds, tabelle)
 
            Catch ex As Exception
                MsgBox(ex.ToString)
                Dim exception As New myException
                exception.writeToFile(ex)
                Exit Function
            End Try
 
            'Die Daten vom DataSet werden an ein DataTable uebergeben
            _dt = ds.Tables(tabelle)
            'Die erste reihe wird ausgewählt
            If _dt.Rows.Count = 0 Then
                Exit Function
            Else
                dr = _dt.Rows(0)
            End If
 
            If spalten = "*" Then
                Exit Function
            Else
                If spalten.IndexOf(",") >= 0 Then
                    Exit Function
                Else
                    Return dr.Item(spalten)
                End If
            End If
 
 
        Catch ex As Exception
            MsgBox(ex.ToString)
            Dim exception As New myException
            exception.writeToFile(ex)
            Exit Function
        End Try