Arguments are of the wrong type or out of acceptable range or are in conflict with one another
Tags:
Software/Hardware used:
management information system
This is my code to display the database "supplier":
Sub displaylist()
Dim lst ListView1.Items.Clear()
rs = New ADODB.Recordset
With rs
.Open("select * from tblsupplier order by suppID asc", cn, 2, 3)
Do While Not .EOF
lst = New ListViewItem
lst = ListView1.Items.Add(.Fields(0).Value)
lst.SubItems.Add(.Fields(1).Value)
lst.SubItems.Add(.Fields(2).Value)
lst.SubItems.Add(.Fields(3).Value)
MoveNext()
Loop
End With
End Sub
Software/Hardware used:
management information system
Asked:
Last updated:
Discuss This Question: 1 Reply