STRING DE CONEXAO

 Private Sub frmvenda_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim myConnectionString As String
            myConnectionString = "server=192.168.0.14;" _
                      & "uid=root;" _
                      & "pwd=xxx;port=3306;" _
                      & "database=xxxx;pooling=false"

            Dim gbdados As New MySql.Data.MySqlClient.MySqlConnection(myConnectionString)
            gbdados.Open()
            MsgBox("Abriu!")
        Catch ex As MySql.Data.MySqlClient.MySqlException
            Select Case ex.Number
                Case 0
                    MessageBox.Show("Cannot connect to server. Contact administrator")
                Case 1045
                    MessageBox.Show("Invalid username/password, please try again")
                Case 1042
                    MessageBox.Show("Host nao encontrado")

            End Select
        End Try
    End Sub