Public Function AAA(sql)
Dim conn As ADODB.Connection
Dim cmd As ADODB.Command

On Error GoTo Handler

    Set conn = New ADODB.Connection
    conn.ConnectionString = adoConnectString
    conn.Open
    
    Set cmd = New ADODB.Command
    cmd.ActiveConnection = conn
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = sql
      
    cmd.Execute
    
    AAA = True
    
    conn.Close

Exit Function

Handler:

    MsgBox "AAA:" & Err.Description
    AAA = False
    conn.Close
    Set conn = Nothing

End Function