Private Sub Form_Load()
Dim oCon As New ADODB.Connection
Dim oRecordset As ADODB.Recordset
Dim s As String
Dim Krit1 As String
    Label1.Caption = Now()
    With oCon
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Open App.Path & "\" & "info.mdb"
        .CursorLocation = adUseClient
    End With
    Set oRecordset = New ADODB.Recordset
    oRecordset.Open "SELECT Name FROM Geburtstag", oCon, adOpenForwardOnly, _
      adLockReadOnly, 0
    With oRecordset
        If .RecordCount > 0 Then
            .MoveFirst
            Do
                Combo1.AddItem .Fields(0).Value
                .MoveNext
            Loop Until .EOF
        End If
    End With
    Set oCon = Nothing
    Set oRecordset = Nothing