Imports ByteFX.Data.MySqlClient
 
Module modSQL
    Dim myconn As New MySqlConnection( _
    "Data Source=192.168.0.1;" + _
    "Initial Catalog=test;" + _
    "User ID=ODBC;PWD=odbc")
    Dim conopen As Boolean = False
    Public Sub openSql()
        myconn.Open()
        conopen = True
    End Sub
 
    Public Sub closeSQL()
        myconn.Close()
        conopen = False
    End Sub
 
    Public Sub insertstring()
        myconn.Open()
        Dim com As New MySqlCommand("INSERT INTO publishers (rea) VALUES (" & _
          "'150')", myconn)
        com.ExecuteNonQuery()
        myconn.Close()
 
    End Sub
 
End Module