hello serge .

[shanp]

hi serge.
i know there is a small error it is howing no current record.
help me what to do?

empname and empid.
priya 1
priya 2
reya 4
ani 8
priya 2

form2 contains textbox and listbox.
if i entered priya in the textbox,corresponding empid should be listed in the listbox.
say
1
2
2
if reya means
4.

i tried below it is showing no current record?

Private Sub cmd_list_Click()
Dim E As String
Dim I As Integer
Set WS = DBEngine.Workspaces(0)
Set DB = WS.OpenDatabase("C:\WINDOWS\PATS.MDB")
Set RS = DB.OpenRecordset("EMP", dbOpenDynaset)
E = "select empid FROM EMP WHERE ENAME='" & Text1.Text & "'"
Set rsl = DB.OpenRecordset(E, dbOpenDynaset)
rsl.MoveLast
I = rsl.RecordCount
If I > 1 Then
rsl.MoveFirst
Do While Not rsl.EOF
List1.List(j) = rsl.Fields("EMPID").Value
rsl.MoveNext
Loop
End If

[Serge]

I dont understand why you're searching for the ID when you can load ID along with the EmpName into the ListBox.

Dim db As Database
Dim rs As Recordset

Set db = Workspaces(0).OpenDatabase("C:\MyDB.mdb")
Set rs = db.OpenRecordset("Select * From EMP", dbOpenSnapshot)

Do Until rs.EOF
    List1.AddItem rs.Fields("EmpName").Value
    List1.ItemData(List1.NewIndex) = rs.Fields("EmpId").Value
    rs.MoveNext
Loop

Then when you need to find out the ID of the selected Item, you can do something like this:

Private Sub List1_Click()
    With List1
        MsgBox "ID of employee " & .List(.ListIndex) & " is " & .ItemData(.ListIndex)
    End With
End Sub

Regards,