I have the following:
Function FileSynced(fname As String) As Long
On Error GoTo Handle_It

Dim db As Database
Dim rs As Recordset
Dim arrFileArray() As String
Dim strFileString As String 'file name without path

arrFileArray = Split(fname, "\", , vbTextCompare)
strFileString = arrFileArray(UBound(arrFileArray))
Dim strTable As String
strTable = "tblFiles"

Set db = CurrentDb
Set rs = db.OpenRecordset(strTable)


Right when I hit set rs = db.openrecordset(strTable)

I get an error message as a type mismatch...not sure why I always open recordsets like this...

Jon

Try:

Set rs = db.OpenRecordset(strTable,dbOpenDynaset))

Tried that with the same error message...I jsut want to be able to open this table...
Jon

Got it working...needed to reference DAO in my declarations portion.

Dim db As DAO.Database
Dim rs As DAO.Recordset

thanks,
Jon