Private Sub BenutzernamenEinlesen()
    Dim DB As Database
    Dim RS As Recordset
 
    Set DB = DBEngine.OpenDatabase("d:\vb\eigene " & _
      "projekte\wochenplanadm\db\wochenplanadm.mdb")
    Set RS = DB.OpenRecordset("Select name from t_ma") ' Hier kommt der fehler
 
    If RS.RecordCount < 0 Then
        While Not RS.EOF
        cboxName.AddItem RS(0)
        RS.MoveNext
    Wend
    End If
 
End Sub

cu
Bris

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