Dim conn As New MySql.Data.MySqlClient.MySqlConnection
        Dim myConnectionString As String
        Dim cmd As New MySqlCommand
        Dim sTable As String = "test2"
 
 
 
        myConnectionString = "server=***;" _
                    & "uid=***;" _
                    & "pwd=***;" _
                    & "database=***;"
 
        Try
            conn.ConnectionString = myConnectionString
            conn.Open()
            cmd.Connection = conn
            MsgBox("offen")
 
 
 
            ' Tabelle erstellen
            cmd.CommandText = "SELECT `id`,`wert` FROM test WHERE id = 1"
 
            cmd.Prepare()
 
            MsgBox(cmd.Parameters.Item("id"))
 
 
 
 
            MsgBox("select ok")
            Me.text1.Text = cmd.CommandText
        Catch ex As MySql.Data.MySqlClient.MySqlException
            Select Case ex.Number
                Case 0
                    MessageBox.Show("Cannot connect to server. Contact" & _
                      "administrator")
                Case 1045
                    MessageBox.Show("Invalid username/password, please try" & _
                      "again")
            End Select
        End Try