Dim Cryapp As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
Dim CNN As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Par As ADODB.Parameter
Dim DT10, DT20 As Variant
Dim Cmd As ADODB.Command
Dim StrCnn As String
Dim i As Integer
On Error Resume Next
Set Report = Cryapp.OpenReport(App.Path + "\11.rpt")
CNN.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=AIS20070910122938;Data Source=WAPSERVER"
CNN.Open
DT10 = Format(Trim(DT1.Value), "yyyy-mm-dd")
DT20 = Format(Trim(DT2.Value), "yyyy-mm-dd")
Set Cmd = New ADODB.Command
Cmd.ActiveConnection = CNN
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = "[manusalary] "
Set Par = Cmd.CreateParameter("BeginDate", adDBDate, adParamInput, , DT10)
Cmd.Parameters.Append Par
Set Par = Cmd.CreateParameter("EndDate", adDBDate, adParamInput, , DT20)
Cmd.Parameters.Append Par
Set rs = Cmd.Execute()