Ayuda, Visual Basic 6.0 y SQL Server

[pearllasa]

Estimados, es primera vez que pido ayuda en este foro. Tengo el siguiente problema. Estoy creando un sistema de requerimientos para usuarios, en el cual, tengo problemas con las busquedas, la logica del sistema es de la siguiente manera: Se ingresa un numero de poliza o siniestro este dato tiene que buscarse en tres tablas que tengo, poliza, siniestro y datos_generales. Ahora lo que yo necesito rescatar de esas tres tablas es la informacion general de esa poliza o siniestro que se ingreso, osea rut, nombres, mail, telefono. Todo esto se esta trabajando en procedimientos almacenados, tengo algo creado pero cuando hago la busqueda de algun dato me arroja un error de "Termino el tiempo de ejecución". Por favor señores necesito ayuda.... El codigo de la funcion para mi busqueda es la siguiente:

Public Function CargaPolizaSiniestro()
'Carga Poliza Siniestro
Dim stsql As String
Dim cnx As New ADODB.Connection
cnx.Open stcnx
Dim rstCPS As New ADODB.Recordset
rstCPS.CursorLocation = adUseClient
stsql = "con_intra_prueba " & frmEnvio.cmbTipoDocumento.ItemData(frmEnvio.cmbTip oDocumento.ListIndex) & ",'" & frmEnvio.txtDocumento.Text & "'"
rstCPS.Open stsql, cnx, adOpenKeyset, adLockOptimistic, 8
rstCPS.Close
End Function