mysql vb6

hej exp'er

jeg sidder og er igang med at lave mig et lille program.. men har fået lidt problemmer med min kode håber der er en der kan hjælp mig...

Den lister ikke mine medlemmer rigtig ud after de felter jeg har laver felter = (ColumnHeaders)

-------------- vb kode ----------------------------

Public Sub mysql_conn()
Dim strSQL, antal As String
Dim strConn As String
Dim Count_User As String
Dim Litem As ListItem
Dim i As Long

Set objConn = CreateObject("ADODB.Connection")
Set ObjRs = CreateObject("ADODB.RecordSet")
strConn = "DRIVER={MySQL ODBC 3.51 DRIVER};" & "SERVER=xxx;" & "DATABASE=xxx;" & "UID=xxx;" & "PWD=xxx;"
strSQL_C = "SELECT count(*) as antal FROM medlemmer order by id"
strSQL_M = "SELECT * FROM medlemmer order by id"

objConn.ConnectionString = strConn
objConn.Open
Set ObjRs1 = objConn.Execute(strSQL_C)
Set ObjRs2 = objConn.Execute(strSQL_M)

With Form1.ListView1
    .View = 3
    .ListItems.Clear
    .ColumnHeaders.Clear
    .ColumnHeaders.Add , , "Username", 1500
    .ColumnHeaders.Add , , "Password", 1500
    .ColumnHeaders.Add , , "Nickname", 1500
    .ColumnHeaders.Add , , "Navn", 1500


Do Until ObjRs2.EOF

    .ListItems.Add 1, , "" & ObjRs2("username") & "", 1, 1
    .ListItems.Item(1).SubItems(1) = ObjRs2("password")
    .ListItems.Item(1).SubItems(2) = ObjRs2("nickname")
    .ListItems.Item(1).SubItems(3) = ObjRs2("navn")
ObjRs2.MoveNext
Loop

End With


End Sub