Set sOnn = New ADODB.Connection
 
    oConn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                & "SERVER=" &  sServer & ";" _
                & "DATABASE=" & sDBName & ";" _
                & "UID=" & SUserName &  ";" _
                & "Password=" & sPassword & ";" _
                & "OPTION=16384"
 
    oConn.CursorLocation = adUseClient
    oConn.ConnectionTimeout = 0
    oConn.Open