Porblema con variable en módulo Tengo un problema para llamar una variable que está en un módulo el código es así:
Module2.conexionBD
rif = Combo4(0).Text
If rif <> "" Then
sql = "SELECT nombre FROM CONTRIBUYENTE WHERE rif = '" & rif & "'"
Set rs = con.Execute(sql)
El problema surge en rs. Dice se requiere un objeto.
En el módulo aparece lo siguiente:
'dimensionamos las variables
Dim con As adodb.Connection
Dim rs As adodb.Recordset
Dim rs1 As adodb.Recordset
Dim rs2 As adodb.Recordset
Dim rs3 As adodb.Recordset
Dim sql As String
Dim sql2 As String
Dim sql3 As String
Dim MiError As adodb.Error
'conexion a la base de datos
Set con = New adodb.Connection
con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ISRL;Data Source=CTXP03"
