conexion de visual.net y access

[robertgustavo]

dim Cn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\TuDatabase.mdb")
dim ds as new dataset
dim da as new oledbdataAdapter("Select * from tuTabla",Cn)
dim Bs as new bindingSource

private sub Form Load(byval obj as object,e as eventArgs) handles mybase.load

try
da.fill(ds,"TuTabla")
datagridview.datasource=ds.tables("TuTabla")
Bs.datasource=ds.tables("TuTabla")
Textbox1.databindings.add("text",bs,"CodigoProduct o")
textbox2.databindings.add("text",bs,"Nom_producto" )
catch e as exption
end try
end sub

para enlazar los campos de texto con la base de datos, busca en Sr. GOOGLE sobre el BindingSource.