Dim WithEvents rs As ADODB.Recordset
Dim WithEvents conn As ADODB.Connection
Dim cmd As ADODB.Command
Dim prm As ADODB.Parameter

Private Sub cmdMonth_Click()
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText =  "sp_GosKomStat" 
cmd.CommandType = adCmdStoredProc
cmd.CommandTimeout =  600 
Set prm = New ADODB.Parameter
prm.Type = adInteger
prm.Value =  200301 
cmd.Parameters.Append prm
rs.Open cmd, , adOpenStatic, adLockReadOnly, adAsyncExecute + adAsyncFetch
End Sub

Private Sub conn_InfoMessage(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
MsgBox pError.Description
End Sub