dim mycon as new ODBC.OdbcConnection
 mycon = New Odbc.OdbcConnection
        mycon.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & _
          MyHost & ";DATABASE=" & MyDB & ";UID=" & MyUser & ";PASSWORD=" & _
          MyPasswort & ";OPTION=2049;"
        mycon.Open()
 
 Dim tbAdapter As New Odbc.OdbcDataAdapter("Select Fax, Mitarbeiter, Beruf," & _
   "FamStand, Land, Nachname, Vorname, PLZ, Ort, Strasse, telprivat AS Telefon," & _
   "Handy, EMail, kategorie, KundenNr, Firma, Anzeigename from Kunden WHERE" & _
   "KundenNr<200 AND User in ('" & userlist & "')", mycon)
        tbAdapter.Fill(Table)