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)
 
    If RS.RecordCount < 0 Then
        While Not RS.EOF
        cboxName.AddItem RS(0)
        RS.MoveNext
    Wend
    End If
 
End Sub

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.