Visual Basic - Ayuda!!!

Q tal!!!

En los programas q he realizado hasta hoy he usado el ControlData para abrir mis tablas de las base de datos, pero me gustaria abrirlas por codigo, es decir, usar ConnectionString, trabajar con los registros mediante el Recordset, etc, etc.

Agradeceria mucho que me enviaran un ejemplo de como abrir y trabajar con una base de datos mediante el codigo, ya sea mediante DAO o ADO.

Agradezco mucho su ayuda....

Saludos!!!

Dim RsTab as recordset

Set RsTab = Empresa.OpenRecordset("Tabla", dbOpenTable, dbInconsistent, dbOptimistic)

Si tienes alguna duda enviame un correo
Suerte.

Depende de la base de datos que estes utilizando.
Odbc:
Ado:
Global gwsEspacio As rdoEnvironment
Global DESR As rdoConnection
Global EspacioAces As Workspace
dim buscar as rdoresultset

Set DESR = gwsEspacio.OpenConnection(dsname:="PRBRED", _
Prompt:=rdDriverNoPrompt, _
Connect:="uid=DESRED;pwd=DESRED;server=PRBRED_NEW;database=PRBRED_NEW;")
squery="comandos sql"

set desr=buscar.openresulset(squery)



Jet:
Dao:

dim db as database
dim buscar as recordset
set db=opendatabase(path)

squery="comandos sql"

set buscar=db.openrecordset(squery)
if not buscar.eof then

'operaciones

end if