Private CnA As New ADODB.Connection
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
        Try
            With CnA
                .CursorLocation = ADODB.CursorLocationEnum.adUseClient
                .Mode = ADODB.ConnectModeEnum.adModeShareDenyNone
                .ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
                                  & "SERVER=192.168.194.177;" _
                                  & "DATABASE=test;" _
                                  & "UID=root;" _
                                  & "PWD=!helpme#?;" _
                                  & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
                .Open()
            End With
                  Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub