coneccion de DB con password en vb...

[carlosEsp]

holaa todos:

bueno lo demas seria de esta forma:
Inclui la referencia Ms activex Dataobject 2.0 library
Agrege una clase estandar:

Public cnx as new adodb.connection
Public Abir()
With cnx.
.conecction String="Provider=Microsoft.Jet.OLEDB.4.0;" + _
“Data Source=C:\sistema\Datos\Dbprueba.mdb;"
"Persist Security Info=True"
.Open
end with

Al cargarse la aplicacion en el evento load del form:
Dim Rs as New adoDb.Recordset ‘como publica del form
Sub Form_load()
call abrir
//da lo mismo obtener los datos desde cualquier form con rs
Rs.open “Select * from Areas ” , cnx, adOpenKeyset, adlockOptimistic
Set Dg.datasource= RS
// donde Dg es el datagrid para Ole

End sub

Pero no muestra los datos de la tabla areas, solo lo hace si coloco un control ado.

Gracias