Pues resulta que en esta función que pongo más abajo aparentemente trabaja y esta bien escrita, pues no me da errores, pero el problema es que manda datos de otra tabla que nisiquiera menciono en la cadena.
Cita:
Sub LoadPagosOnListview()
asg
CNN.Open PRV
On Error Resume Next
SQL1 = "SELECT idpago, pagonumero, cantidad, fecha_hora, idcuenta FROM Pagos WHERE " & CInt(Form3.txtIdCuenta) & " = Pagos.idcuenta "
RST.Open SQL1, CNN, adOpenStatic
Form3.ListPagos.ListItems.Clear
While RST.EOF = False
Set LST = Form3.ListPagos.ListItems.Add(, , Format(RST(0), " 0000000"))
LST.SubItems(1) = RST(1)
LST.SubItems(2) = RST(3)
LST.SubItems(3) = RST(4)
RST.MoveNext
Wend
CNN.Close
End Sub
Como ven se genera la cadena y se llena un list view con los datos pero...
Lo que me manda son los cuatro primeros datos de la primera tabla de la base de datos, que en este caso es la tabla de Clientes.
Que puedo hacer para corregir esto, o existe alguna otra manera de llenar el list view, talvez yo estoy mal.