Dim DB As Database
Dim RS As dao.Recordset
Dim i As Integer
 
Set DB = DBEngine.OpenDatabase(frm_Optionen.txt_DB.Text & "\dat\liz.mdb")
Set RS = DB.OpenRecordset("SELECT * FROM t_" & cbox_Kategorie.Text & " WHERE" & _
  "Vergeben='Nein'")
 
DoEvents
MsgBox RS.RecordCount

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)