conectar base de datos?

[FNX_NET]

aqui te va esto

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conexion As System.Data.OleDb.OleDbConnection
Dim StrConexion As String
Dim DS As System.Data.DataSet
Dim adaptador As System.Data.OleDb.OleDbDataAdapter
Dim StrComando As String

' conecta el origen con la base de dato de microsoft access
StrConexion = "provider=Microsoft.Jet.OLEDB.4.0;Password ='miclave';UserID=Admin;Data Soucer=C:\basedatos.mdb;"

' se asigna a la conecion el string de conecion (valga de rabundancia de conexion :P)
conexion = New OleDb.OleDbConnection(StrConexion)

' asigna la tabla que tomara el adaptador
StrComando = "SELECT * FROM tabla"

'se crea el adaptador
adaptador = New OleDb.OleDbDataAdapter(StrComando, StrConexion)

'se conecta y obtiene las filas, las cules seran almacenadas en ds (un data adapter)
adaptador.Fill(DS, "tabla")

'' si se requiera cargar el dataset con otras tablas solo se deben crear
'' nuevas variables
''obvio abre la conexion
conexion.Open()
''lo que se quiera hacer con las tablas y base de datos ,
''pero se tiene que recordar que esta forma extrae la las tablas
'' y se requiere del update para que los combio que se haga a la base
'' ocurran eso :P

'' y mas obvio cierra la conexion
conexion.Close()


End Sub
End Class