Private Sub BenutzernamenEinlesen()
    Dim DB As Database
    Dim RS As Recordset
    Dim sSQL As String
 
    Set DB = DBEngine.OpenDatabase("d:\vb\eigene " & _
      "projekte\wochenplanadm\db\wochenplanadm.mdb")
    sSQL = "SELECT name FROM t_ma"
    Set RS = DB.OpenRecordset(sSQL)  '<---------- hier ist der "typen" & _
      "unverträglich"
 
    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)