[VB] 명령 구하기

Public Function GetCommand(pConnection As ADODB.Connection, pCommandType As CommandTypeEnum, bPrepared As Boolean, strCommandText As String) As ADODB.Command
    
    Dim pCommand As ADODB.Command
    
    Set GetCommand = Nothing
    
    On Error GoTo ErrorLabel
    
    Set pCommand = New ADODB.Command
    
    With pCommand
        .ActiveConnection = pConnection
        .CommandType = pCommandType
        .Prepared = bPrepared
        .CommandText = strCommandText
    End With
    
    On Error GoTo 0
    
    Set GetCommand = pCommand
    
    Exit Function
    
ErrorLabel:

End Function