Ayuda migracion de DAO a ADO

Adrian
06 de Mayo del 2004
hola a todos
mi duda es la siguiente:
quiero migrar mi programa de dao a ado pero a ado no le entiendo muy bien :

Saque de un libro esta explicación



Antes (dao):
Set DB = OpenDatabase(“C:EjerVBVideoclubVideoclub.mdb”)

Después:
DB.Open “Provider=SQLOLEDB;” & _
“User ID=sa;” & _
“Pwd=;” & _
“Initial Catalog=Videoclub;” & _
“Data Source=(local)”

pero no se exactamente la sintaxis de ado ,
alguien me puede dar un ejemplito ???
Gracias de antemano

frangel
06 de Mayo del 2004
DIM cn As ADODB.Connection

' ABRE LA BASE DE DATOS
Public Sub ABRE_DATOS()
On Error GoTo FINALIZA
Dim Txtdatabase As String
Txtdatabase = rutaserver & "BD_ELEMENTOS.MDB"
cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Txtdatabase & ";" _
& "Persist Security Info=False;jet oledb:database password=Admin"
Set cn = New ADODB.Connection
cn.ConnectionString = cadena
cn.Open
Exit Sub
FINALIZA:
msg = "Ha ocurrido el error (" & Err.Number & ") no previsto consulte al ADMINISTRADOR"
msg = msg & vbCrLf & " " & Err.Description
MsgBox msg, vbCritical
End
End Sub