给你我做的程序
Set MYCOM = New ADODB.Command
  Set fhz = New ADODB.Parameter
    
     fhz.Type = adInteger
     fhz.Direction = adParamReturnValue
   MYCOM.Parameters.Append fhz
   
 Set yhm1 = New ADODB.Parameter  
     yhm1.Value = Text3.Text
     yhm1.Type = adVarChar
     yhm1.Size = 10
     yhm1.Direction = adParamInput
     MYCOM.Parameters.Append yhm1
     
  Set mm1 = New ADODB.Parameter 
     mm1.Value = Text2.Text
     mm1.Type = adVarChar
     mm1.Size = 12
     mm1.Direction = adParamInput
     MYCOM.Parameters.Append mm1
     
  Set dw1 = New ADODB.Parameter 
     dw1.Value = Combo3.Text
     dw1.Type = adVarChar
     dw1.Size = 12
     dw1.Direction = adParamInput
     MYCOM.Parameters.Append dw1
 
     MYCOM.ActiveConnection = cnn
   MYCOM.CommandText = "p_chkpwd_dd"
   MYCOM.CommandType = adCmdStoredProc
      Dim hhh As Integer
   Set rs = MYCOM.Execute()