Código:
Imports MySql.Data.MySqlClient
Public Class Form1
Private MySql_Conexion_String As String = "Server=localhost;" & _
"Database=ciber_edmac;" & _
"Uid=root;" & _
"Pwd="";"
Dim MySql_Comandos As MySqlCommand
Dim Mysql_Conexion As MySqlConnection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Mysql_Conexion = New MySqlConnection()
Mysql_Conexion.ConnectionString = MySql_Conexion_String
Mysql_Conexion.Open()
MsgBox(Mysql_Conexion.State)
Mysql_Conexion.Close()
End Sub
End Class
saludos!!!

ya quedo solucionado............. gracias


