Sub GetData()
Dim connection As New ADODB.connection
Dim command As New ADODB.command
Dim rs As New ADODB.Recordset


With connection
    .ConnectionString = "Provider=SQLOLEDB;Data Source=sbhost2;Initial Catalog=Dispatch; User Id=; Password="
    .Open
End With
With command
    .CommandType = adCmdStoredProc
    .CommandText = "GetData"
    .Parameters.Append .CreateParameter("@begin", adChar, , 8)
    .Parameters(0).Value = "20141201"
    .ActiveConnection = connection
    Set rs = .Execute
End With
With rs
    Do While Not .EOF
    Debug.Print rs.Fields(0).Value
       .MoveNext
    Loop
   
End With
connection.Close
End Sub