conexion de visual.net y access

[CALO3004]

holas : hace dias tuve unos problemas con la conexion lo q yo qiero hacer es conectarme ala base de datos y poner sakar un campo de mi base de datos y ponerlo en un control de texto para poder hacer la pregunta del logeo y esas cosas pucha no se si me complico demasiado en explicar esto ... pero si alguien me puede ayudar le agradeceria mucho

Pd .. ya lei los otros foros con referente a esto pero no me sale si me pueden ayudar les agradeceria

[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.