Records displaying Problem

[drunkenneo]

I am on code want to display records on the form by order_number, but i am unable to do it.
Please help me if i am going wrong anywhere:

Private Sub Combo63_AfterUpdate()
Dim rs As DAO.Recordset
Dim intcount As Integer

On Error GoTo ErrorHandler
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Master_Log WHERE Order_number = " & Combo63.Value & "", dbOpenSnapshot)
intcount = CurrentDb.Recordsets.Count
Debug.Print intcount
For Each rs In CurrentDb.Recordsets
Debug.Print "Open recordset: " & rs.NextRecordset
Next rs
ErrorHandler:
MsgBox "Error No: " & Err.Number & "; Description: " & _
Err.Description
Exit Sub
End Sub

[rzw0wr]

Please read.

http://www.excelguru.ca/content.php?...-cross-posters