Private Sub List1_Click()
    On Error Resume Next
    Dim table_name As String
    Dim strSQL As String
 
 
    table_name = List1.List(List1.ListIndex)
    strSQL = "SELECT * FROM " & table_name
    Text1.Text = table_name
 
    Dim varH_Temp
    List2.Clear
    Set varH_Temp = DB.OpenRecordset(Text1.Text)
 
    For X = 0 To varH_Temp.Fields.Count - 1
    If ((varH_Temp.Fields(X).Name) <> "id") Then List2.AddItem _
      varH_Temp.Fields(X).Name
    Next X
    If List2.ListCount > 0 Then List2.ListIndex = 0
 
End Sub