Alsooo... Habe das Problem jetzt gelöst. Musste zwar ein kleines bisschen Quellcode schreiben, aber das ist ja nicht schlimm!
Also, ich habe eine Listbox erstellt und dieser den Namen DataList gegeben.
Dann habe ich eine Methode erstellt, mit dem schönen Namen FillDataList
Sub FillDataList()
dim dbc As recordSet
dim cnt As Integer
DataList.deleteAllRows
dbc=dbName.sqLSelect("select * from tblName")
DataList.ColumnCount=dbc.fieldCount
while not dbc.eoF
DataList.addRow dbc.idxField(1).stringValue
for cnt=1 to dbc.fieldCount
DataList.cell(DataList.lastIndex, cnt-1)=dbc.idxField(cnt).stringValue
next
dbc.movenext
wend
dbc.close
End Sub
Dann muss man nur noch der Listbox sagen, das sie beim starten die Methode aufrufen soll... That's it ^^