经典老舞曲dj慢摇舞曲:请高手帮忙注解一下这一ACC语句

看来你对语法真的是一点都不懂啊，没办法，只好逐句给你解释一下了：

'当需要字符串比较时，将根据数据库的国别 ID 确定的排序级别进行比较。
Option Compare Database

Private Sub comCom_AfterUpdate()
Dim r As QueryDef '定义查询变量
Dim sql As String '定义临时字符串

'初始化查询变量
Set r = CurrentDb.QueryDefs("客户信息查询")

'设置SQL语句
sql = "select * from 客户信息 where 所属单位=""" + comCom.Text + """"
r.sql = sql

'关闭原始数据集
客户信息子窗体.Form.Recordset.Close

'设置新数据集
Set 客户信息子窗体.Form.Recordset = r.OpenRecordset
End Sub

'执行查询按钮的功能
Private Sub 查询_Click()
Dim str As String '定义临时字符串

DoCmd.OpenForm "简单信息查询" '打开“简单信息查询”窗体
comCom.SetFocus '使comCom文本框获得焦点
str = comCom.Text '变量str记录comCom文本框的文本内容
Form_简单信息查询.所属单位 = str '将str值赋给“Form_简单信息查询”窗体的“所属单位”控件
End Sub

'执行查询按钮的功能
Private Sub 打印_Click()
'如果代码有错误，就执行Err_preview_items_Click语句
On Error GoTo Err_preview_items_Click

Dim stDocName As String '定义临时字符串

'执行打印预览报表的操作（文档名称是客户单位列表"）
stDocName = "客户单位列表"
DoCmd.OpenReport stDocName, acPreview

'错误转向语句（功能是结束本过程，其实Exit_preview_items_Click:可以不写）
Exit_preview_items_Click:
Exit Sub

'显示错误描述信息并继续程序运行（已经结束本过程）
Err_preview_items_Click:
MsgBox Err.Description
Resume Exit_preview_items_Click
End Sub

上面注释已经很详细了
你要是还看不懂的话
建议你先学学语法
VB语言很好上手的 网上教程也很多

太难了

VB6啊,简单成马了,看看MSDN啊,比谁说的都要好啊

看见了吧，大家豆秸事情出了

是VB语句.你哪句不明白?