Dim rdr As SqlDataReader = sqlcmd.ExecuteReader
If rdr.HasRows Then
rdr.Read()
GetInvHeaderValue = Convert.ToString(rdr.Read())
Return GetInvHeaderValue
Else
GetInvHeaderValue = "<ERR>No Records Returned</ERR>"
End If
Dim GetInvHeaderValue As Object
While rdr.Read()
GetInvHeaderValue = rdr(0)'if this value is in Column-Index 0'
GetInvHeaderValue = rdr("GetInvHeaderValue")'if a Column with this name exists'
GetInvHeaderValue = rdr.GetString(0)'returns a String representation(there are getter for all common types)'
End While