In our shop, we use SQL through views for security. Here is how we call SP's in our code...
Dim Rs 'Main Recordset object
Dim Rs2 'Dropdown Box Object
Dim Cnn 'Connection Obj
Dim strUId 'User NT Id
Dim strCnn 'Conn str
Dim strText
Set lstCntPinTries = XDocument.DOM.selectSingleNode("//my:lstCntPinTries")
Set txtSearch = XDocument.DOM.selectSingleNode("//my:txtSearch")
TrimUserId()
TrimCnnStr()
OpenDbConnection()
InitializeForm()
DetermineRecNbrAndCount RecNbr2, RecCnt2
Public Sub InitializeForm()
GetRecordSet()
txtCreate_Record = "N"
Public Sub InitializeForm()
GetRecordSet()
txtCreate_Record = "N"
If Not Rs.EOF Then
PopulateFields()
'Set Navigation Button status
DisplayRecNbrAndRecCnt()
End If
End Sub
Public Sub GetRecordSet()
Dim Sp
Dim cmd
Dim j
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = Cnn
cmd.CommandText = "usp_On_the_DOT_AwardList"
cmd.Prepared = True
Set Rs = cmd.Execute(j,strUId,adCmdStoredProc)
End Sub
I hope this helps.