como debe ir el "new" por que lo pongo de la siquiente manera : Dim REG
As adodb.Recordset
Dim CONECTA As Connection
Set REG = New adodb.Recordset
Set CONECTA = New Connection
With CONECTA
.CursorLocation = adUseClient
.ConnectionString = Me.Adodc1.ConnectionString
.Open
End With
CSQL = " select * from caracteristicas,operacion,
responsable,observaciones where caracteristicas.cod_ac_fi= '" + Text1 +
"' and operacion.cod_ac_fi= '" + Text1 + "' and responsable.cod_ac_fi'" + Text1 + "' and observaciones.cod_ac_fi= '" + Text1 + "'"
Set REG = CONECTA.Execute(CSQL)
If REG.RecordCount <> 0 Then
Set Me.DataGrid1.DataSource = Execute(CSQL)
End If
Leer las respuestas