Listview and Subitems

:confused:

Got a question for you all.

In this program a module called Recoredset.

This is the area of the problem.
---------------------------------------------------------------------

Public Sub Validate(UserName, Password As String)
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Dim SQL As String

SQL = "Select * from Passwords where UserName = " & Chr(34) & UserName & Chr(34)

Rs.Open SQL, conn, adOpenKeyset, adLockReadOnly
With FrmBMServer

If Rs.EOF = True Then .sckServerWinsockConnection(.InitMax).SendData "InValid UserName": Exit Sub
If UCase(Password) = UCase(Rs!Password) Then
.sckServerWinsockConnection(.InitMax).SendData "Password Validated"
.lvUsers.ListItems.Add , , UserName
.lvUsers.ListItems(1).SubItems(1) = Count + 1
.lvUsers.ListItems(2).SubItems(1) = Count + 2 <- Right Here
Else
.sckServerWinsockConnection(.InitMax).SendData "InValid Password"
End If

End With

Rs.Close
Set Rs = Nothing
FrmBMServer.Label7.Caption = Err.Description

End Sub

---------------------------------------------------------------------
The line that has the arrow next to it is my problem.

I have a ListView set up and it has too columnheaders at the top. First column is UserName.
Second Column is Port Number.
What I want it to do is to put user name in the first column row and the port number in the second column row.
Im not sure on how to do this. There's got to be a way to check if column row's 1 2 3 etc are already filled, and if so add a new one plus need to figuer out how to put a counter in for the port numbers.


So it sould look somthing like this.

column Username | Column Port Number
-------------------------------------
Texg | 1
Bill | 2
ect...


Thanks for your help
TexG