cmd1.CommandType = adCmdStoredProc
cmd1.CommandText = "sp_insert1"
cmd1.Parameters.Refresh
For i = 1 To cmd1.Parameters.Count
cmd1.Parameters("需要的字段名") = 需要插入的值
Next
cmd1.execute
cmd1.CommandType = adCmdStoredProc
cmd1.CommandText = "sp_insert1"
cmd1.Parameters.Refresh
For i = 1 To cmd1.Parameters.Count
cmd1.Parameters("需要的字段名") = 需要插入的值
Next