vb调用存储过程问题

Question

Dim Cmd_Client As New ADODB.Command
Dim Rst_Client As New ADODB.RecordsetRst_Client.CursorType = adOpenKeyset
Rst_Client.LockType = adLockReadOnly  With Cmd_Client
   
        .ActiveConnection = cn
        .CommandType = adCmdStoredProc
        .CommandText = "sp_Client_New"Set param = .CreateParameter("@Cli_fax", adVarChar, adParamInput, 40, Trim(txtfax.Text))
.Parameters.Append param//Cli_Remoney是Decimal(9,2) 这么怎么写才算正确
Set param = .CreateParameter("@Cli_Remoney", adDecimal, adParamInput, , Format(Val(Trim(txtRemoney.Text)), "0.00"))
.Parameters("@Cli_Remoney").Precision = 9
.Parameters("@Cli_Remoney").NumericScale = 2
.Parameters.Append param
        
 
        Set Rst_Client = .ExecuteEnd WithMsgBox Rst_Client.RecordCount // 这里怎么写才能得到实际的记录数 而不是-1
Set Cmd_Client = Nothing
Exit Sub

Answer 1

Rst_Client.CursorLocation = adUseClient
Rst_Client.CursorType = adOpenKeyset
Rst_Client.LockType = adLockReadOnly这样设置 不行啊

Answer 2

Set param = .CreateParameter("@Cli_fax", adVarChar, adParamInput, 40, Trim(txtfax.Text))
.Parameters.Append param//Cli_Remoney是Decimal(9,2) 这么怎么写才算正确