sSQL = "HIER DEIN SQL"
    If rs.State = adStateOpen Then rs.Close
    rs.Open sSQL, con
       If rs.BOF = False Then
       While Not rs.EOF
          'hier füllst du z.B. einen Listview oder was auch immer du unter 
          ' tabelle verstehst
          'mal ein beispiel für einen listview
          Set li = ListView1.ListItems.add(, , rs.Fields(0).value)
          li.SubItems(1) = rs.Fields(1).value
          rs.MoveNext
       Wend
    End If
    If rs.State = adStateOpen Then rs.Close
    Set rs = Nothing