Recordset Issue

Experts,

I have written

Dim query As String = "Select DateDiff (dd, getdate(). ExpDate) from OBTN where DistNumber = ' " & BatchNum & " ' "

MessageBox.Show (oRec.Fields.Item (0).Value) is giving invalid index etc...

How to get this value?

It will always return 1 value.

so looping can be excaped.