is there any vb line i can use

[misspn]

i am developing a human resources profiler system. the problem is that the system cannot log on on some machines giving me a 'runtime error 2147220999(800401f9) method of object_current project failed' pointing on the following line
rs.Open str_sel, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
my code is as follows

Option Compare Database
 
Private Sub ACCEPT_Click()
Dim ls_username, ls_username_1, ls_password, ls_password_1  As String
Dim str_sel As String
Dim rs As Recordset
Dim rs_count As Integer
ls_username = Me.User_name.Value
ls_password = Me.password.Value
 
'Set dbs = CurrentDb
str_sel = "SELECT * FROM USERS WHERE [USERNAME] = '" & ls_username & "';"
If IsNull(ls_username) Then
MsgBox "Please enter username", vbInformation, "Payroll Logon"
Else
Set rs = New ADODB.Recordset
rs.Open str_sel, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
'Set rs = openrecordset(str_sel)
rs_count = rs.RecordCount
If rs_count < 1 Then
MsgBox "Username Does not exist", vbCritical, "Payroll Logon"
Else
ls_password_1 = rs!password
If ls_password_1 <> ls_password Or IsNull(ls_password) Then
MsgBox "Please Enter Correct Password ", vbCritical, "Payroll Logon"
Else
gsusername = rs!Username
gsprofile = rs!Profile
gl_Full_name = rs!Full_name
'MsgBox " Username and password super", vbInformation, "btags"
DoCmd.Close
'DoCmd.OpenForm "rate", acNormal
End If
End If
DoCmd.OpenForm "main", acNormal
End If
End Sub

please help me out i am stranded

[SanjuMtr]

iam developing a human resources profiler system. the problem is that the system cannot log on on some machines giving me a 'runtime error2147220999(800401f9) method of object_current project failed' pointing on the following line
rs.Open str_sel, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
my code is as follows

Option Compare Database

Private Sub ACCEPT_Click()
Dim ls_username, ls_username_1, ls_password, ls_password_1 As String
Dim str_sel As String
Dim rs As Recordset
Dim rs_count As Integer
ls_username = Me.User_name.Value
ls_password = Me.password.Value

'Set dbs = CurrentDb
str_sel = "SELECT * FROM USERS WHERE [USERNAME] = '" & ls_username & "';"
If IsNull(ls_username) Then
MsgBox "Please enter username", vbInformation, "Payroll Logon"
Else
Set rs = New ADODB.Recordset
rs.Open str_sel, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

'Set rs = openrecordset(str_sel)
rs_count = rs.RecordCount
If rs_count < 1 Then
MsgBox "Username Does not exist", vbCritical, "Payroll Logon"
Else
ls_password_1 = rs!password
If ls_password_1 <> ls_password Or IsNull(ls_password) Then
MsgBox "Please Enter Correct Password ", vbCritical, "Payroll Logon"
Else
gsusername = rs!Username
gsprofile = rs!Profile
gl_Full_name = rs!Full_name
'MsgBox " Username and password super", vbInformation, "btags"
DoCmd.Close
'DoCmd.OpenForm "rate", acNormal
End If
End If
DoCmd.OpenForm "main", acNormal
End If
End Sub

please help me out iam sranded

Hi ,
I have Some Question regarding your code.

What type of control this are???

ls_username = Me.User_name.Value
ls_password = Me.password.Value
 

if its textbox controls(I think So) then you should use

ls_username = Me.User_name.text
ls_password = Me.password.text
 

2nd ly
???????

rs.Open str_sel, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 

is currentproject is connection object(again i think so) then use only object name.provided that
1) you have a valid connection String
2)connection Object should be open before u open the recordset object

rs.Open str_sel, CurrentProject, adOpenKeyset, adLockOptimistic
 

if CurrentProject is your Project name & Connection is the Connection Object
then the above mention code is OK .
Ok?

[Killer42]

I wonder whether these machines might have out of date versions of some runtime modules, or Activex controls.