how to open specific records through vba

[slakshmi]

Private Sub cmdsearch_Click()
  Dim db As Database
  Dim s As Recordset
  Dim s1 As String
  Dim i As Integer
  Dim val As Recordset
  Set db = CurrentDb()
    Set s = db.OpenRecordset("Zone1new")
     If s.EOF = False Then
    Do While Not s.EOF
       s1 = s("BldgNo")
       If Me!txtbldgno.Value = s1 Then
       DoCmd.OpenForm "Zone1new subform", acNormal, , "BldgNo=" & s1, , acDialog
         'Like ""*" & s1 & "*"")}"
       End If
      s.MoveNext
     Loop
   End If
End Sub

where is it worng in docmd i do not understand???pls help

[Seth Schrock]

Do you get an error message? What happens when this code runs?

[slakshmi]

" Datatype mismatch in criterion section" this is the runtime error i get .???pls help

[Seth Schrock]

Then I'm going to guess that that the field BldgNo is a text data type, in which case you would need single quotes around your text, like this (line #13):

DoCmd.OpenForm "Zone1new subform", acNormal, , "BldgNo='" & s1 & "'", , acDialog

[slakshmi]

Thank you very much.Its working great. thank you.