Dim sConn As String = "Persist Security Info=False;" _
+ "Integrated Security=SSPI;database=数据库名;" _
+ "server=127.0.0.1;Connect Timeout=30"

Public Function RunProc(ByVal storedname As String, ByVal para() As SqlParameter) As Integer

sqlconn.Open()
sqlcmd = New SqlCommand
sqlcmd.Connection = SqlConn
sqlcmd.CommandText = storedname
sqlcmd.CommandType = CommandType.StoredProcedure

Dim j As Integer
For j = 0 To para.Length - 1
sqlcmd.Parameters.Add(para(j))
Next

Try
Dim i As Integer
i = sqlcmd.ExecuteNonQuery()
Return i
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim para() As SqlParameter = {New SqlParameter("@id", SqlDbType.Int), _
New SqlParameter("@szValue1", SqlDbType.VarChar, 20), _
New SqlParameter("@szValue2", SqlDbType.VarChar, 20), _
New SqlParameter("@szValue3", SqlDbType.VarChar, 20), _
New SqlParameter("@szValue4", SqlDbType.VarChar, 20), _
New SqlParameter("@szValue5", SqlDbType.VarChar, 20), _
New SqlParameter("@szValue6", SqlDbType.VarChar, 20), _
New SqlParameter("@szValue7", SqlDbType.VarChar, 20)}

para(0).Value = 参数值1
para(1).Value = 参数值2
para(2).Value = 参数值3
para(3).Value = 参数值4
para(4).Value = 参数值5
para(5).Value = 参数值6
para(6).Value = 参数值7
para(7).Value = 参数值8

Dim i As Integer
i = RunProc("sp_update", para)
If i <> -1 Then
MessageBox.Show("修改成功!")
End If
Close()
End Sub