When the program gets to the following code, I get a complie
error.....

Private Sub cmdOK_Click()
Data1.Recordset.MoveFirst
    Do While Not Data1.Recordset.EOF
        get_stats
            If lname = txtUserName And password = txtPassword Then
            okay = True
            Data1.Database.Close
            Me.Hide
            Exit Sub
            End If
        Data1.Recordset.MoveNext
    Loop
        okay = False
        Data1.Database.Close
        Me.Hide
        Exit Sub
End Sub

When the program gets to the "Data1.Recordset.MoveFirst" I get the
following error:
                >> " Function or interface marked as restricted, or
                >> the function uses automation not supported
                >> by Visual Basic "

Nothing in this section has changed, I even tried running some older
apps that I had written a while ago that use ACCESS databases, and I
get the same error.

Any ideas......I would really appreciate some help in this matter,
before I end up ripping out all my hair.

When the program gets to the following code, I get a complie
error.....

Private Sub cmdOK_Click()
Data1.Recordset.MoveFirst
    Do While Not Data1.Recordset.EOF
        get_stats
            If lname = txtUserName And password = txtPassword Then
            okay = True
            Data1.Database.Close
            Me.Hide
            Exit Sub
            End If
        Data1.Recordset.MoveNext
    Loop
        okay = False
        Data1.Database.Close
        Me.Hide
        Exit Sub
End Sub

When the program gets to the "Data1.Recordset.MoveFirst" I get the
following error:
                >> " Function or interface marked as restricted, or
                >> the function uses automation not supported
                >> by Visual Basic "

Nothing in this section has changed, I even tried running some older
apps that I had written a while ago that use ACCESS databases, and I
get the same error.

Any ideas......I would really appreciate some help in this matter,
before I end up ripping out all my hair.

I have never encountered this errormessage yet, but here are my tactics
of approaching an Access- Error:

- If the .MoveFirst- Method causes Problems, it often helps to  switch to
a different tzpe of recordset:
There are Recordsets that don't allow you to move backwards in a
recordset. Use something like Dynaset to avoid problems.

- Whenever I encounter Problems with a Database without changing code,
the security settings often changed and now cause problems.

- If you cannot quite make any sense of the errordescription, copy the
errornumber to the clipboard, visit the MS homepage and paste the
ErrorNumber into the Search- field. It usually comes up with a more
detailed description

Hope you can use this,