Any sugesstions

[dongodu]

Private Sub cmdDinchu_Click()
Set obj = New PrinterControl
obj.ChngOrientationPortrait
Call ConnectMe
Set rs = New ADODB.Recordset

rs.Open "select * from reser where res_date between '" & Text1.Text & "' and '" & Text2.Text & "' and pron Between '" & Text3.Text & "' and '" & Text4.Text & "'and pron between '" & Text5.Text & "' and '" & Text6.Text & "' and pblkno between '" & Text7.Text & "' and '" & Text8.Text & "'", con, 1, 3

If rs.RecordCount = 0 Then
    MsgBox "No record found on query.", vbCritical, "Medrar"
   
Else
    Set Reservartion_List.DataSource = rs
    Unload Me
    Reservartion_List.Show
End If

Set rs = Nothing
End Sub

[June7]

What is your question? Does this code work - if not, why? Error message, no results, bad results?

On first glance, may be error in SQL syntax. Is res_date field a data/time datatype? If so, use # as delimiter character instead of apostrophe. If the other fields are number type, no delimiter is used.

Also, is Reservartion_List correct with the second r? This is a form? Why are you changing the DataSource? Why not just filter the form?

[rpeare]

where 
res_date between '" & Text1.Text  & "' and '" & Text2.Text & "' 
and pron Between '" &  Text3.Text & "' and '" & Text4.Text & "'
and pron between '"  & Text5.Text & "' and '" & Text6.Text & "' 
and pblkno  between '" & Text7.Text & "' and '" & Text8.Text & "'"

First of all if res_date is a date field this query will not work
You would need to have this:

res_date between #" & Text1.Text  & "# and #" & Text2.Text & "#

Secondly, if either pron or pblkno is a number or date field then again your code will not work. let's assume pblkno is in fact a number you would want this:

and pblkno  between " & Text7.Text & " and " & Text8.Text