ExecuteReader return nothing Urgent Help

See more:

VB

XML

MS-Access

I have a Section of Code that read an xml file for an Sql Query. the code work fine but no rows returned..i tried the same query on Access database it return rows

HTML
----
<Test>
<TR_PARAM>MATERIALISSUE</TR_PARAM>
<TR_QUERY>SELECT SERIALNO,ISSUEDATE,SALESORDERCODE,INVITEMCODE,QTY,UNITCODE,POSITEMCODE,ITEMTYPE,SERVINGUNITCODE,SERVINGQTY,REFSERIALNO ,@P3 FROM MATERIALISSUE WHERE (ISSUEDATE &gt;@P1 AND ISSUEDATE &lt;@P2)</TR_QUERY>
<TR_FREEZ>N</TR_FREEZ>
<TR_PARAM1>7:7</TR_PARAM1>
<TR_NO_PARAM>3</TR_NO_PARAM>
<TR_DEF_UPLOAD>Y</TR_DEF_UPLOAD>
<TR_TYP_2>0</TR_TYP_2>
<TR_TYP_3>FD:TDT</TR_TYP_3>
<TR_TYP_4>100</TR_TYP_4>
</Test>


VB.net Code
-------------
tblname = dro("tr_param")
Dim cmd As New OleDbCommand(dro("tr_query"), cnn)
Dim arrctl() As String = Split(dro("TR_TYP_3"), ":")
Dim arrpr() As String = Split(dro("tr_param1"), ":")
For i As Byte = 0 To dro("TR_NO_PARAM") - 1
If i = 2 Then
Dim P3 As New OleDbParameter("@P3", Locname)
P3.Value = Locname
cmd.Parameters.Add(P3)
Else
Dim p As New OleDbParameter("@P" & i + 1, arrpr(i))

p.Value = IIf(arrctl(i) = "FD", dtpfrom.Text, IIf(arrctl(i) = "TDT", dtpTo.Text, ""))
cmd.Parameters.Add(p)
End If
Next
Dim dts As New DataTable(dro("tr_param"))
dts.Load(cmd.ExecuteReader)



'Note take Value of P3 as "DBMALU" read from another text file