Dim myConnectionString As String
        If myConnectionString = "" Then
 
            myConnectionString = "Database=kas net;Data Source=eserver;User" & _
              "Id=thomas;Password=thomas"
        End If
        Dim myConnection As New MySql.Data.MySqlClient.MySqlConnection( _
          myConnectionString)
        Dim myInsertQuery As String = "INSERT INTO user (id, password) Values (" & _
        "999, 111)"
        Dim myCommand As New MySql.Data.MySqlClient.MySqlCommand(myInsertQuery)
        myCommand.Connection = myConnection
        myConnection.Open()
        myCommand.ExecuteNonQuery()
        myCommand.Connection.Close()

 
        Dim myInsertQuery As String = "INSERT INTO user (id, password) Values (" & _
          "999, TextBox1.Text)"