下面的DAO(数据访问对象)示例创建一个表my_dao并演示了的使用rs.addNew，rs.update，和结果集滚动。

Private Sub myodbc_dao_Click() Dim ws As Workspace Dim conn As Connection Dim queryDef As queryDef Dim str As String '使用MySQL ODBC 3.51 Driver Set ws = DBEngine连接到MySQL。CreateWorkspace(""， "venu"， "venu"， dbUseODBC) str = "odbc;DRIVER={MySQL odbc 3.51 DRIVER};"_ & "SERVER=localhost;"_ & " DATABASE=test;"_ & "UID=静脉;PWD=静脉;OPTION=3"设置conn = ws。OpenConnection("test"， dbDriverNoPrompt, False, str)'Create table my_dao Set queryDef = conn.CreateQueryDef(""， "drop table if exists my_dao")Execute Set queryDef = conn.CreateQueryDef(""， "create table my_dao(Id INT AUTO_INCREMENT PRIMARY KEY， " _ & "Ts TIMESTAMP(14) NOT NULL, Name varchar(20)， Id2 INT)") queryDef。执行'插入新记录使用rs. addnew Set rs = conn.OpenRecordset("my_dao") Dim i As Integer For i = 10 To 15 rs. addnew rs!Name = "insert record" & i rs!Id2 = i rs. update Next i rs. close 'rs update..Set rs = conn.OpenRecordset("my_dao") rs. edit rs!Name = "updated-string" rs.Update rs.Close '取回表回来…设置rs = conn.OpenRecordset("my_dao"， dbOpenDynamic) str = "Results:" rs. movefirst While Not rs. eof str = " & rs!Id & "， " & rs!Name & ", " & rs!Ts & ", " & rs!Id2 Debug.Print "DATA:" & str rs.MoveNext Wend 'rs Scrolling rs.MoveFirst str = " FIRST ROW: " & rs!Id & " , " & rs!Name & ", " & rs!Ts & ", " & rs!Id2 Debug.Print str rs.MoveLast str = " LAST ROW: " & rs!Id & " , " & rs!Name & ", " & rs!Ts & ", " & rs!Id2 Debug.Print str rs.MovePrevious str = " LAST-1 ROW: " & rs!Id & " , " & rs!Name & ", " & rs!Ts & ", " & rs!Id2 Debug.Print str 'free all resources rs.Close queryDef.Close conn.Close ws.Close End Sub