como conectar VB.net con MYSQL

[Ka0stj]

Código vb:

Dim objConn As New MySql.Data.MySqlClient.MySqlConnection
 
  Public Function StrConexion() As String
        Try
            Dim cn As New MySql.Data.MySqlClient.MySqlConnection
            cn.ConnectionString = "server=localhost;userid=root;password=admin;database=BD;"
 
            Return cn.ConnectionString
 
        Catch ex As Exception
            Throw ex
        End Try
    End Function
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
objConn = New MySql.Data.MySqlClient.MySqlConnection(StrConexion)
 
Try
 
objConn.Open()
 
'Funcionalidad
 
objConn.Close()
 
Catch ex As MySql.Data.MySqlClient.MySqlException
  MessageBox.Show(ex.Message)
End Try 
 
End Sub