Please check this code.. Repost!

[rothj0hn]

Guys I need some opinion, which of the two codes is best to use, or if you have a suggestion on how to do it..

Private gcnRIS      As ADODB.Connection
Private pstConnStr  As String
Private mvarErrDesc As String
 
Public Property Get ErrDesc() As String
    ErrDesc = mvarErrDesc
End Property
 
Public Property Let Connection(ByVal vData As ADODB.Connection)
    Set gcnRIS = vData
End Property
 
Public Function SearchSQL(sQuery As String) As ADODB.Recordset
    Set SearchSQL = New ADODB.Recordset
    SearchSQL.Open sQuery, gcnRIS, adOpenStatic, adLockReadOnly, adCmdText
End Function
 
Public Function ExecuteSQL(sQuery As String) As Boolean
 
On Error GoTo ExecuteSQLErr
    
    gcnRIS.Execute sQuery, adExecuteNoRecords
    ExecuteSQL = True
    Exit Function
    
ExecuteSQLErr:
    mvarErrDesc = Err.Description
    ExecuteSQL = False
End Function

Public Function SearchSQL(gcnRIS as ADODB.Connectnon, sQuery As String) As ADODB.Recordset
    Set SearchSQL = New ADODB.Recordset
    SearchSQL.Open sQuery, gcnRIS, adOpenStatic, adLockReadOnly, adCmdText
End Function
 
Public Function ExecuteSQL(gcnRIS as ADODB.Connectnon, sQuery As String) As Boolean
 
On Error GoTo ExecuteSQLErr
    
    gcnRIS.Execute sQuery, adExecuteNoRecords
    ExecuteSQL = True
    Exit Function
    
ExecuteSQLErr:
    mvarErrDesc = Err.Description
    ExecuteSQL = False
End Function

[Nightwalker83]

Did you post this code on the forum originally? If so please stick to the original thread instead of creating a new thread each time. If the thread was posted in the section you can request the thread moved.