VB Forum / Database Access / May 2006

Can some tell me why this code isn't working?

I'm using a listview control I'm retrieving field names from a database
table and making them the column headers on the listview control. I'm then
reading the data from the selected table and I want to place the data under
the correct columns.

This code has been modified from Microsoft's example to accomidate database
manipulation.

Private Sub List_Tbl_Data(cnnDB As ADODB.Connection, strTbl As String)
   On Error GoTo List_Tbl_Data_Err
   Dim I As Integer
   Dim itmX As ListItem
   Dim strFld As String
   Dim strCol As String
   Set rsData = New ADODB.Recordset
   strSQL = "SELECT " & strTbl & ".* FROM " & strTbl & ";"
   rsData.Open strSQL, cnnDB, adOpenKeyset, adLockReadOnly
   With rsData
       If .RecordCount <> 0 Then
           Do While Not .EOF
               For I = 1 To lvTblCols.ColumnHeaders.Count
                   'Get field name on listview column
                   strFld = lvTblCols.ColumnHeaders(I).Text
                   'Get the listview key
                   strCol = lvTblCols.ColumnHeaders(I).Key
                   'Write data on the proper row under the proper column
                   Set itmX = lvTblCols.ListItems.Add(I, strCol,
rsData(strFld))
               Next I
               .MoveNext
           Loop
       End If
   End With
       
List_Tbl_Data_Exit:
   On Error Resume Next
   rsData.Close
   Set rsData = Nothing
   Exit Sub
   
List_Tbl_Data_Err:
   Msg = "Error in frmPictures - List_Tbl_Data subroutine. " & vbCr & _
         "Error # " & Str(Err.Number) & " was generated by " _
         & Err.Source & vbCr & Err.Description
   MsgBox Msg, , "Error", Err.HelpFile, Err.HelpContext
   Resume List_Tbl_Data_Exit
End Sub