Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb"
    cn.Open
    rs.Open "select * from 表名", cn
    
    rs.Fields("字段名").Value = 值
    rs.MoveFirst '将游标移至第一条
    rs.MoveLast  '将游标移至最后一条
    rs.MoveNext '下一条
    rs.MovePrevious '上一条
    rs.Delete adAffectCurrent '删除当前记录