Public cn As ADODB.Connection
Public rs As ADODB.Recordset
Sub main()
Set cn = New ADODB.Connection
cn.ConnectionString = "Driver ={Mysql ODBC 3.51 Driver}; Server=loclhost; port=3306; database=just; user=root; password=0000; option=3;"
cn.Open
If cn.State = adStateOpen Then
MsgBox "Connected"
End If
Form1.Show

End Sub