Error 2147467259

[Fanii]

0olaa!!
pues en realidad tengo una gran duda sobre este error
he buscado en internet i en este mismo foro
pero la verdad es que no he podido soolucionar este problema
i la verdad es muy urgente ya que de ello depende
mi calificacion, aqii les dejo el codigoo
si alguien me puede ayudar en verdad le estare muy agradecida

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
cnn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data" & "Source=" & App.Path & "C:\Documents and Settings\Administrador\Escritorio\proyecto" & " Proyecto.mdb" & ";Persist Security Info = False "
cnn.Open
rs.Open "selct * from Datos ", cnn, adOpenDynamic, adLockOptimisc
Call visualizar_datos
End Sub

pd. es para un proyecto de la prepa
tengo access 2003 y vb6
mi s.o es xp
y ya me asegure de las referencias ole automation y activex data objects 2.8