Imports MySql.Data
Imports MySql.Data.MySqlClient
 
 
Public Class start
 
        Private Sub cmdLogin_Click(ByVal sender As System.Object, ByVal e As _
          System.EventArgs) Handles cmdLogin.Click
 
 
        Dim ConString As String = "server=www.xxx.yyy.zzz;user" & _
          "id=xxx;password=xxx;database=xxx"
        Dim ds As New DataSet
        Dim dt As New DataTable
 
        Try
            Dim SQL As String = ("SELECT * FROM timeronline.account WHERE" & _
              "username='?username'") 'Die Abfrage
            Dim da As New MySqlDataAdapter(SQL, ConString) 'der 
            ' Verbindungsstring und die Abfrage
            'Hier kommt der Fehler den ich beschreibe
            '>>>>>>>
            da.SelectCommand.Parameters.AddWithValue("?username", _
              Me.txtUsername.Text)
            '<<<<<<<
                       Dim cmd As New MySqlCommandBuilder(da)  'Den Befehl 
                       ' ausführen
 
            dt.Clear()
            da.Fill(ds, "password, level, enabled")
            dt = ds..........
            ...
            ...
            ...
            ...
            ..............essage)
        End Try
 
    End Sub
End Class