I play in a different RDBMS, so the params ordinals may be off by one, each, i.e., this is a quick SWAG, but it may help. Try replacing this in your VB code:
Code:
.
.
.
With ocmd 
  .ActiveConnection = SQLSERVER.ConnectionString 
  '  sp1
  'cmd.CommandText = "meuteste"
  'cmd.Name = "meuteste" 

  '   sp2 with params
  .CommandText = "sp2_filtramain"
  .CommandType = adCmdStoredProc
  .Parameters.Refresh
  .Parameters(0).Value = Format(cdata, "yyyy-mm-dd")
  .Parameters(1).Value = "ABDS"
End With
.
.
.