im using that code:

Private Sub cmdsignin_Click()

Dim User As String

User = Txtuser.Text

DE1.rsReg.Find "mname='" & User & "'"

    If DE1.rsReg.EOF Then
       MsgBox "user not found"
    End If

End Sub

im tryin to search for a name in data enviroment (access.mdb),
the prog always gives me user not found ny ideas?  

Try this :-

Dim User As String User = Trim(Txtuser.Text) DE1.rsReg.MoveFirst DE1.rsReg.Find "([mname] Like '" & User & "')"     If DE1.rsReg.EOF Then        MsgBox "user not found"     End If

____________________________
multi-tasking - the ability to hang more than one app. at the same time.

Hi,
Here is a sample code. Please try it.

              'method 1
Private Sub cmdsignin_Click()
Dim User As String
User = Txtuser.Text
DE1.rsReg.Close
DE1.rsReg.Open "select * from ..... order by mname asc"
DE1.rsReg.MoveFirst
rs.Find "mname='" & user & "'"
If DE1.rsReg.EOF = False Then
' give the action to be done
exit sub
else
msg " no record "
End If
endsub

            method2

' in this it is asumed that your name field is in DE1.rsReg(1)
Private Sub cmdsignin_Click()
Dim User As String
User = Txtuser.Text
DE1.rsReg.Close
DE1.rsReg.Open "select * from ..... order by mname asc"
do while DE1.rsReg.eof = false
if DE1.rsReg(1)='" & user & "'" then
' give the action
DE1.rsReg.movenext
loop
endsub

'       method 3
' this option will work for fields that are indexed and are 'unique
Private Sub cmdsignin_Click()
Dim User As String
User = Txtuser.Text
DE1.rsReg.Open "select * from ..... where mname = '" & user &"' order by mname asc"
if de1.rsreg.eof = true then
msgbox " no such record"
else
' specifiy action
endif
endsub

' modification to your code
Private Sub cmdsignin_Click()
Dim User As String
User = Txtuser.Text
DE1.rsReg.Find "mname='" & User & "'"
    If DE1.rsReg.EOF = true Then
       MsgBox "user not found"
    End If
End Sub

".... give the table name "

bye have a good day



____________________________
kck