...
Sub Globals
Dim mh1 As MysqlHandler
Dim rs1 As ResultSet
End Sub
Sub Activity_Create(FirstTime As Boolean)
mh1.Initialize("192.168.0.51:3307", "myDatabase","myUser","myPassword")
If mh1.isConnected = False Then
Msgbox(mh1.SQLError, "Connection Error:")
Return
End If
End Sub