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