 Function Sproc()     Dim cnn As New ADODB.Connection     Dim rst As New ADODB.Recordset     Dim cmd As ADODB.Command     Dim ConnectionString As String     Dim StrSproc As String      ConnectionString = "Provider=SQLOLEDB;Data Source=DBSource;" & _                   "Initial Catalog=CurrentDb;" & _                   "Integrated Security=SSPI;"      'Opens connection to the database     