各位大哥,谁有Access+VB的初级学习的事例,小弟急需要!!

打开数据库，并显示内容在mshflexgrid，显示完关闭数据库
Dim cnn1 As ADODB.Connection
Dim rst As ADODB.Recordset
Dim cnnstr As String
Set cnn1 = New ADODB.Connectioncnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstrSet rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "select * from stu", cnn1Set Form1.MSHFlexGrid1.DataSource = rstrst.Close
cnn1.Close
删除记录
 '删除第一条数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstrWith rst
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open "select * from stu", cnnstr
    .Delete adAffectCurrent 
    .Update     
    .UpdateBatch adAffectAllChapters
End With
Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close用SQL选择删除数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstrWith rst
    .CursorType = adOpenForwardOnly
    .LockType = adLockOptimistic
    .Open "select * from stu where 字段1='" & "r" & "'", cnnstr
    .Delete adAffectCurrent
    .Update
    .UpdateBatch adAffectAllChapters
End With
       Set Form1.MSHFlexGrid1.DataSource = rst
   Next i
rst.Close
cnn1.Close
删除SQL搜索到的多条数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr    rst.CursorType = adOpenKeyset
    rst.LockType = adLockOptimistic
    rst.Open "select * from stu where 字段1='" & "r" & "'", cnnstr
     Do Until rst.EOF
      rst.Delete adAffectCurrent
      rst.Update
      rst.UpdateBatch adAffectAllChapters
      rst.MoveNext
    Loop
set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close删除所有数据
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As Stringcnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr    rst.CursorType = adOpenKeyset
    rst.LockType = adLockOptimistic
    rst.Open "select * from stu ", cnnstr
    Do Until rst.EOF
    rst.Delete
     rst.Update
    rst.UpdateBatch adAffectAllChapters
    rst.MoveNext
    Loop
   
   Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close
编辑记录
修改一条记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr    rst.CursorType = adOpenKeyset
    rst.LockType = adLockOptimistic
    rst.Open "select * from stu where 字段1= '" & "text1" & "'", cnnstr    rst.Update
    rst.Fields("字段1") = Me.Text1.Text
    rst.Fields("字段2") = Me.Text2.Text
    rst.Fields("字段3") = Me.Text3.Text
    rst.Fields("字段4") = Me.Text4.Text
    rst.Fields("字段5") = Me.Text5.Text
    rst.UpdateBatch adAffectAllChapters   Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close修改多条记录
Dim cnn1 As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cnnstr As String
Dim i As Integer
Dim a As Integer
cnnstr = " provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;"
cnn1.Open cnnstr    rst.CursorType = adOpenKeyset
    rst.LockType = adLockOptimistic
    rst.Open "select * from stu where 字段1= '" & "高" & "'", cnnstr
    Do Until rst.EOF
    rst.Update
    rst.Fields("字段1") = Me.Text1.Text
    rst.Fields("字段2") = Me.Text2.Text
    rst.Fields("字段3") = Me.Text3.Text
    rst.Fields("字段4") = Me.Text4.Text
    rst.Fields("字段5") = Me.Text5.Text
    rst.UpdateBatch adAffectAllChapters
    rst.MoveNext
    Loop
   Set Form1.MSHFlexGrid1.DataSource = rst
rst.Close
cnn1.Close