conectar vb 2005 y access 2003

[eperedo]

Hola, te dejo este código, puedes ejecutarlo en el Load de un formulario que tenga 2 cajas de texto (TextBox1 y TextBox2 para el ejemplo):

Código vb.net:

Private Sub mostrarDatos()
        Try
            Using cn As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=C:\Neptuno.mdb")
                'Consulta SQL Con un parámetro
                Using cmd As New OleDbCommand("Select NombreProducto, PrecioUnidad From Productos Where IdProducto=@codigo", cn)
                    'Configuramos el parámetro @codigo
                    cmd.Parameters.Add("@codigo", OleDbType.Integer, 4).Value = 1
                    cn.Open() 'Abrimos la conexion
                    Using dr As OleDbDataReader = cmd.ExecuteReader() 'Ejecutamos la consulta
                        'Comprobamos si hay registros
                        If dr.Read() Then
                            'Pasamos los datos a los controles según el nombre de la columna
                            Me.TextBox1.Text = Convert.ToString(dr("NombreProducto"))
                            Me.TextBox2.Text = Convert.ToString(dr("PrecioUnidad"))
                        End If
                    End Using
                End Using
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 

Básicamente tendrás que reemplazar la ruta de la base de datos que para el ejemplo use C:\Neptuno.mdb y la consulta SQL ("Select NombreProducto, PrecioUnidad From Productos Where IdProducto=@codigo"), lo demás todo es igual.

Espero te sirva, cualquier duda me avisas