conexion con base de datos

[rafa2300]

'importamos las librerías
Imports System.Data.Sql
Imports MySql.Data.MySqlClient
Imports System.Data.OleDb
Imports System.Data
'nota este paso ya lo debiste de haber echo pero aun asi rectifico tienes que agregar las referenias
'mysql.data y mysql.web


'declaramos algunas variables
Dim conect As MySqlConnection
Dim adp As MySqlDataAdapter
Dim tb As DataTable


'priemor realizas la conexion
conect = New MySqlConnection("datasource=localhost;username=adm inistrador;password=123456;database=usuario")
adp = New MySqlDataAdapter("select id_usuario, usuario, contraseña from usuario;", conect)
tb = New DataTable
adp.Fill(tb)
'igualamos una caja de texto al valor
textbox1.Text=tb.Rows(0)(1)'para nombre de usuario
textbox2.Text=tb.Rows(0)(2)'para contraseña
tb.clear()'siempre ay que borrar la tabla si es que vamos a seguirla usando en el mismo formulario

espero que te ayude