Dim MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};" & _
                "SERVER=" & My.Settings.mySQLserver & ";" & _
                "DATABASE=" & My.Settings.mySQLdb & ";" & _
                "UID=" & My.Settings.mySQLuser & ";" & _
                "PASSWORD=" & My.Settings.mySQlpass & ";" & _
                "OPTION=3;"
 
        Dim MyConnection As New OdbcConnection(MyConString)
        Try
            MyConnection.Open()
            Dim MyCommand As New OdbcCommand
            MyCommand.Connection = MyConnection
 
 
            MyCommand.CommandText = "SELECT name FROM tabellen"
            MyCommand.ExecuteNonQuery()
            MyConnection.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

 
Dim ergebniss() as string
.......
 ergebniss = MyCommand.ExecuteNonQuery()