Question

ado dao编程语言分不清楚，请高手帮忙分辨下，究竟是什么语言

Private sub cmdsave_click()
Dim rst as object
Dim strsql as string
Dim maxid as string
Dim currentid as string
Dim strfrm as string
If isnull(me.txtygm) then
Msgbox “请输入员工姓名！” ,vbcritical, “提示”
Me,txtygm,setfocus
Exit sub
End if
Maxid=dmax(“[ygid]”,”tblcodeyg”)
Currentid=”y”&form(val(right$(maxid,2)+1),”00”)
Strsql=” select * from tblcodeyg”
Set rst =currentdb.openrecordset(strsql,dbopendynaset)
Rst.addnew
Rst!ygid=currentid
Rst!ygxm=me.txtgxm
Rst.update
Rst.close
Set.rst=nothing
Me,txtygxm=null
Doevents
Strfrm=form_frmyg_sg_main!frmchild,sourceobject
Form_frmyg_sg_main!frmchild.sourceobject=strfrm
Msgbox”您录入的数据以保存成功！”,vbinformation,”消息”
End sub
看开头，有些像ado的声明方式，看中间currentdb的书写又有点像dao的书写格式，刚学习这种东西，完全分不清，请高手指点下，方便针对性学习

Answer 1

DAO
Dim rst as object

如果是ADO，这里不是这样写的
应该是Dim rs As Adodb.recordset

Answer 2

这应该是DAO对象编程

Answer 3

VB写的代码。

Answer 4

这是ado....................