Sub TakeID(TypeID As Long, ByRef NewID As Long)
    Dim cat As New ADOX.Catalog
    Dim cmd As ADODB.Command
    
    Set cat.ActiveConnection = CurrentProject.Connection
    Set cmd = cat.Procedures("TakeID").Command
    cmd.Parameters.Refresh
    cmd.Parameters("Type") = TypeID
    cmd.Execute
    NewID = cmd.Parameters("NewID")
    
    cat.Procedures
End Sub

Function SorcTouch(Nam As String, Path As String, Params As String, TypID As SorcTypEnum) As Long
    Dim cat As New ADOX.Catalog
    Dim cmd As ADODB.Command
    
    Set cat.ActiveConnection = CurrentProject.Connection
    Set cmd = cat.Procedures("SorcTouch").Command
    
    With cmd
        .Parameters.Refresh
        .Parameters("ID") =  0 
        .Parameters("Nam") = Nam
        .Parameters("Path") = Path
        .Parameters("Params") = Params
        .Parameters("TypID") = TypID
        .Execute
        SorcTouch = .Parameters("ID")
    End With
End Function