Public Function ryanMod_getManualRTVHeader(ByVal objConn As ADODB.Connection, ByVal DunsNbr As Long, ByVal DunsSuffix As Long, ByVal transNum As String, Optional ByVal QueryTimeout As Long) As ADODB.Recordset Dim strSQL As String Dim RS As ADODB.Recordset strSQL = "Select * from table1" Set RS = New ADODB.Recordset With RS .CursorLocation = adUseClient .CursorType = adOpenForwardOnly .ActiveConnection = objConn .LockType = adLockReadOnly .Source = strSQL .Open End With Set ryanMod_getManualRTVHeader = RS Exit Function ErrorTrap: Set ryanMod_getManualRTVHeader = Nothing Err.Raise vbObjectError, "Application", Err.Description End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)