正在阅读：VB.net中访问存储过程的几种办法VB.net中访问存储过程的几种办法

　　MsgBox cmd.Parameters("numrows").Value

　　Else

　　MsgBox "没有记录"

　　End If

　　MsgBox rs4.RecordCount

　　Set DataGrid1.DataSource = rs4

　　DataGrid1.Refresh

　　End Sub

　　'连接数据库

　　Private Sub Form_Load()

　　Set mConn = New Connection

　　mConn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=yang"

　　mConn.CursorLocation = adUseClient '设置为客户端

　　mConn.Open

　　End Sub

　　'关闭数据连接

　　Private Sub Form_Unload(Cancel As Integer)

　　mConn.Close

　　Set mConn = Nothing

　　End Sub