Argument are of wrong type or are out of acceptable range

[patelr]

I am trying to use VB6 and ADODB to maintain Access database file.

I can add first record using the VB code shown below, However, if I use the same logic next time around I get following error: Argument are of wrong type, are out of acceptable range, or are in conflict with one another.

Any idea? What have I missed?

Here is the code snippet

' Open connection
Set Cn = New ADODB.Connection
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Trim(App.Path) & "\employees.mdb"

Cnxn.Open strCn

' Open recordset to enable changes
Set rstEmployees = New ADODB.Recordset
strSQLEmployees = "SELECT * FROM Employee"
rstEmployees.Open strSQLEmployees, Cnxn, adOpenKeyset, adLockOptimistic, adCmdText

'set Criteria
criteria = "First Name='" & UCase(fname)) & "'"
rstEmployees.Find (criteria) ' Find first occurrence.

' save changes or add record
If Not rstOverlay.EOF Then
rstEmployees("First Name")= "XYZ123"
rstEmployees("Last Name") = "ZXY456"
rstEmployees.Update
Else
rstEmployees.addnew
rstEmployees("First Name") = "XYZ"
rstEmployees("Last Name") = "ZXY456"
rstEmployees.Update

End If

Thanks for help in advance.

 

[patelr]

error occurs when .Find method is executed..

 

[Golom]

A field name containing spaces needs to be in brackets

criteria = "[First Name]='" & UCase(fname)) & "'"

 

[BobRodes]

Also, that convention isn't supported by every SQL-based DBMS, so if you're thinking about ever migrating away from Access, you might consider removing the space.