Carlos
08 de Abril del 2003

Estoy utilizando este código y me da error con la referencia

Referencias: Microsoft Activex Data Objects Recordset Library 2.5

Public Cn As New ADODB.connection

Public Sub Conextion()

sql = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;Persist Security Info=False; DATA SOURCE=" & App.Path & "prueba.mdb"

If Cn.State = adStateClose Then
Cn.Open sql
End If

End Sub