helpme!!!! please
Function Connect() As Boolean
On Error GoTo Abort
bReconnect = False
Disconnect
Set cnHIS = New Connection
cnHIS.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};DATABASE=hos;SERVER=192.168.0.240;UID=kortex;PWD=sin;PORT=;OPTION=3;STMT=;"
cnHIS.CursorLocation = adUseClient
cnHIS.Open
Connect = (cnHIS.State = adStateOpen)
If Connect Then stbMsg.Panels(1).Text = "Status DB : Connected."
Exit Function
Abort:
Disconnect
End Function