If Flag = True Then
strSQL = "[部门] = '" & Combo3.Text & "' and [职务] = '" & Combo4.Text & "'" '显示record_name字段的记录等于当前节点的记录
Adodc2.Recordset.MoveFirst
Adodc2.Recordset.Find strSQL
txtFields(6).Text = Adodc2.Recordset.Fields("岗位工资").Value
End If
Exit Sub

出现这个错误怎么解决?