i need to upgrade system from vb6 to vb.net
but there was a condition for the database that i cant convert it to vb.net.

Code:
        
Set Data2.Recordset = Db_Profile.OpenRecordset("Select * from BatchTable where datecreate = datevalue('" & Data1.Recordset.Fields("DocDate") & "') and RecCueNo = '" & Data1.Recordset.Fields("RecCueNo") & "'")
...