i also use parameters structures but still the same i tried this one...

Private Sub GetRecords(ByVal myRSONO As String)

Dim cmd As New OleDbCommand
cmd.Connection = cn
cmd.CommandType = CommandType.Text
cmd.CommandText = "Select * from FinalCustItemRSO where RSONO = " & _txtRSONO.text & "'"
da = New OleDbDataAdapter
da.SelectCommand = cmd
da.Fill(ds, "FinalCustItemRSO")
End Sub

i so, hope you well give me sample..