CodeItBetter Programming Another VB Programming Blog

'Database - How to create and call a stored procedure.
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
 
CREATE PROCEDURE ProcEmployees As
Begin
    declare @Empcount as int
    Select @EmpCount = count(*) From Employees
    Return @Empcount
End
 
Set conn = New ADODB.Connection
Set rst = New ADODB.Recorset
 
conn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
conn.Open "Data Source=c:\database.mdb"
rst = conn.execute "Call ProcEmployees"