Public Sub CreateRequest (Activity As Object)As DBRequestManager
Dim req As DBRequestManager
req.Initialize(Activity, rdcLink)
Return req
End Sub
Public Sub CreateCommand(Name As String, Parameters() As Object) As DBCommand
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = Name
If Parameters <> Null Then cmd.Parameters = Parameters
Return cmd
End Sub