Hi, can help me here it is not honoring the filtering code... Crystal report

help me here why it's not honor the filtering code..?

Private Sub GetRecordsPrintSat()
ds.Clear()
Dim cmd As New OleDbCommand
ds = New DataSet
cmd.Connection = cn
cmd.CommandType = CommandType.Text
cmd.CommandText = "Select * from FinalCustItemRSO where RSONO=" & cboPrintRsoNo.Text & ""
da.SelectCommand = cmd
'Dim da As OleDbDataAdapter
'da = New OleDbDataAdapter("Select * from FinalCustItemRSO where RSONO=" & cboPrintRsoNo.Text & "", cn)
da.Fill(ds, "FinalCustItemRSO")
' MsgBox(ds)
End Sub
Private Sub BtnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPrint.Click

Dim Meprint As New PrintSat
Me.myRSONO_rpt = Me.cboPrintRsoNo.Text

Dim newRep As New LunisCryatal
GetRecordsPrintSat()
newRep.SetDataSource(ds)
newRep.Refresh()
CrystalReportViewer1.RefreshReport()
Meprint.Refresh()
End Sub

i try this one but it steel not work...? Why, Please Help...?

Private Sub GetRecordsPrintSat()
ds.Clear()
ds = New DataSet
cmd.Connection = cn
da.SelectCommand = cmd
Dim da As OleDbDataAdapter
da = New OleDbDataAdapter("Select * from FinalCustItemRSO where RSONO=" & cboPrintRsoNo.Text & "", cn)
da.Fill(ds, "FinalCustItemRSO")
' MsgBox(ds)
End Sub