VB datareport generates same records from the ADODB recordset with MS Access DB

Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rsa1 = New ADODB.Recordset
 
    'Set db = OpenDatabase("D:\WebMTC\Cash Purchase System\cash.mdb")
    'Set rsa = db.OpenRecordset("Select * From t1")
    conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =D:\WebMTC\Cash Purchase System\cash.mdb"
    conn.Open
    rsa1.Open "select * from t1", conn
end sub
 
 
Private Sub search_Click()
 
    If Combo1.Text = "" Then Exit Sub
    If Combo1.Text = "Material" Then q = "mat"
    If Combo1.Text = "Requirement From" Then q = "reqfrm"
    If Combo1.Text = "Consumption Location" Then q = "reqto"
    If Combo1.Text = "Consumption Department" Then qt = "reqdept"
    If Combo1.Text = "Descripton" Then q = "desc"
    If Combo1.Text = "Quote" Then q = "quote"
    If Combo1.Text = "Price" Then q = "price"
    If Combo1.Text = "Authorizer" Then q = "auth"
 
If rsa1.State = adStateOpen Then
rsa1.Close
rsa1.Open "SELECT * FROM t1 where " + q + " like '%" + Text1.Text + "%'", conn, adOpenStatic, adLockOptimistic
End If
If rsa1.RecordCount = 0 Then
MsgBox "Query found 0 Results", vbInformation, "Zero Result"
rsa1.Close
Exit Sub
End If
 
Set rpt.DataSource = rsa1
rpt.DataMember = ""
rpt.Show
With rpt
.Height = 10580
.Width = 13460
.Top = 100
.Left = 1700
End With
With rpt.Sections("Section1")
.Controls("label1").Caption = rsa1.Fields(1).Value
.Controls("label2").Caption = rsa1.Fields(2).Value
.Controls("label3").Caption = rsa1.Fields(3).Value
.Controls("label4").Caption = rsa1.Fields(5).Value
.Controls("label5").Caption = rsa1.Fields(6).Value
End With
'rsa1.Close
Set rsa1 = Nothing
 
  End Sub