Public Function ValidateLveRecord(ByVal tclvrnoee As String, _ ByVal tclvrcdleave As String, ByVal tdlvrleave As Nullable(Of DateTime)) As String Dim message As String = Nothing Dim dao As mmDataAccessBase = DirectCast(Me.HostObject, _ mmBusinessObject).GetDataAccessObject() Dim Connection As IDbConnection Dim Reader As IDataReader = dao.ExecReader _ ("SELECT * FROM vxlves WHERE clvrnoee=@tclvrnoee AND clvrcdleave=@tclvrcdleave AND " & _ "dlvrleave=@tdlvrleave", Connection, New IDbDataParameter() _ {dao.CreateParameter("@tclvrnoee", tclvrnoee), dao.CreateParameter("@tclvrcdleave", _ tclvrcdleave), dao.CreateParameter("@tdlvrleave", tdlvrleave)}) If Reader.Read() Then message = "(Employee# + Leave Type + Date From) must be unique" If Not (Me.DataSet Is Nothing) Then Me.AddErrorProviderBrokenRule("CustomerID", message) End If End If Reader.Close() Return message End FunctionI have got a warning in that the "Variable 'Connection' is passed by reference before it has been