关于VB连接数Access据库的关闭问题

Option Explicit
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection

Private Sub cmdOpen_Click()
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\StayHome.mdb;Persist Security Info=False"
Conn.CursorLocation = adUseClient
Conn.Open strConn

' 如果RecordSet的状态不是关闭状态,则关闭Recordset
If Rs.State <> adStateClosed Then Rs.Close
Rs.Open "Select * from test", Conn, adOpenKeyset, adLockOptimistic
' 绑定进DataGrid
Set DataGrid1.DataSource = Rs

cmdOpen.Enabled = False

End Sub

Private Sub cmdUpdate_Click()
Dim i As Integer

Dim b(1 To 5) As Integer
For i = 1 To 5
b(i) = i * 2
Conn.Execute ("update test set data='" & b(i) & "'" & "where N='" & i & "' ")
Picture1.Print i; " "; b(i)
Ne

关于VB连接数Access据库的关闭问题 关于VB连接ACCESS的方法 VB连接Access数据库 VB连接ACCESS vb+access数据连接 VB连接Access语法 VB连接Access VB连接ACCESS数据库 用VB连接ACCESS vb连接access数据库