No me esta cargando el dato Base datos

[rubencho5413]

Option Explicit

' variable Connection y Recordset
Dim cn As ADODB.Connection
Dim Rs As ADODB.Recordset

Private Sub Form_Load()


' Crea y abre la conexión
Set cn = New ADODB.Connection

With cn
.CursorLocation = adUseClient
' cadena de conexión
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\db1.mdb" & _
";Persist Security Info=False"
End With
' Crea y abre el recordset
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient

cn.Open
End sub


Espero le sirva