Porké error 13 ?? JELP!!!

[Sir Matrix]

Holaaa, estoy tratando de conectarme por medio de ADO a una bd access97. Uso VB6 y siempre he usado controles data

Esto es lo que pongo en el botón para hacer la conexión:

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=o:\cirugia.mdb;Persist Security Info=False"

cn.Open

Dim rs As Recordset
Dim StringSql As String

StringSql = "SELECT * FROM operado"

Set rs = cn.Execute(StringSql) ' <-acá salta el error 13


'esto no alcanza a ajecutarse pero igual lo pongo porsiacaso:
While Not rs.EOF
MsgBox rs!nombre
rs.MoveNext
DoEvents
Wend
rs.Close
Conection.Close

Me dice que existe un error 13 que no coinciden los tipos, a qué se deberá??

Gracias de antemano

[gary666]

checa este codigo mando llamar un sp
Dim gconn As New ADODB.Connection
Dim adoCmd As New ADODB.Command
Dim adoresultado As New ADODB.Recordset
Dim oContext As ObjectContext

'obtiene los datos generales de los recibos para la consulta en linea de los mismos
'desde la aplicacion de consultas de clientes


gconn.ConnectionString = strConexion
gconn.Open
Set adoCmd.ActiveConnection = gconn
adoresultado.CursorLocation = adUseClient
With adoCmd
.CommandType = adCmdStoredProc
.CommandText = "SpSelDatosReciboPoliza"
.Parameters.Append adoCmd.CreateParameter("@PolizaId", adInteger, adParamInput, 4, lPolizaId)
.Parameters.Append adoCmd.CreateParameter("@ClaveId", adVarChar, adParamInput, 3, strClaveId)
.Parameters.Append adoCmd.CreateParameter("@IncisoId", adInteger, adParamInput, 4, iIncisoId)
End With
adoresultado.Open adoCmd
adoresultado.ActiveConnection = Nothing

gconn.Close
Set gconn = Nothing
If Not oContext Is Nothing Then ' Program is running under MTS
oContext.SetComplete ' Alert MTS that operation was successful
End If
Set oContext = Nothing
Exit Function

[Brother]

Para empezar el recordset tine que ser declarado As New Recordset para que lo referencie con le ADO de otra manera lo esta referenciando al Dao son diferentes formas de declaracion si no ocupas la referencia Dao remuevela de las referencias del Proyecto y por favor me avisas si de eso se trata ya me ha pasado muchas Veces


mailto:[email protected]