aca dejo el codigo.
Código:
Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim i As Integer SQL = "select e_contador.id_contador, e_contador.id_esquina, e_contador.direccion, e_contador.modelo, e_contador.tipo, e_contador.fecha_alta, e_contador.titulo as titulo_contador, " SQL = SQL & " e_contador_modulo.*, " SQL = SQL & " w_esquina.* " SQL = SQL & " FROM e_contador, e_contador_modulo, w_esquina " SQL = SQL & " WHERE e_contador_modulo.id_contador = e_contador.id_contador " SQL = SQL & " AND e_contador.id_esquina = w_esquina.id_esquina " SQL = SQL & " AND e_contador.id_esquina = " & id_esquina & "" rs.Open SQL, conectar contadores_poresquina = rs.RecordCount i = 1 While Not rs.EOF 'pic_contador(i).Visible = True 'i = rs!id_contador & rs!id_modulo Load contador(i) contador(i).Visible = True contador(i).Left = rs!dist_left contador(i).TOP = rs!dist_top contador(i).Tag = rs!id_contador Load dist_left(i) dist_left(i).Caption = CInt(rs!dist_left) Load dist_top(i) dist_top(i).Caption = CInt(rs!dist_top) Load id_contador(i) id_contador(i).Visible = True id_contador(i).Caption = rs!id_contador Load id_modulo(i) id_modulo(i).Visible = True id_modulo(i).Caption = rs!id_modulo Load titulo(i) titulo(i).Visible = True titulo(i).Enabled = True titulo(i) = rs!titulo Load cantidad(i) cantidad(i).Visible = True cantidad(i).Caption = rs!cantidad_max i = i + 1 'pic_contador.Item(i).TOP = rs!TOP 'MsgBox "Contadores en esta esquina: " & contadores_poresquina & vbNewLine & "Contador: " & rs!id_Contador & " | " & rs!modulo rs.MoveNext Wend rs.Close Set rs = Nothing