[编程申请]：请求帮助！！！

zsz7707

我用VBA编写一个小程序，运行到“Dim WithEvents adoPrimaryRS As Recordset”时出现错误“对象不是源自动事件”，不知道是怎么回事，请版主帮帮忙，谢谢！

efan2000

带事件的变量只能声明为模块级变量，即在所有的过程之前声明。

zsz7707

我是在窗体级声明的，我看到有的VBA程序可以，不知道为什么？

efan2000

把代码贴出来看看。

zsz7707

我的部分代码如下：

（通用  声明：）
Dim WithEvents adoPrimaryRS As recordset
（过程：）
Private Sub STgg_Click()
Dim db As Connection
Dim Keyword
Dim sql
  Keyword = "'" & STgg.Text & "'"
  findword = "name=" & Keyword
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=d:\program files\acadm 6\mypath\管件程序\STlib.mdb;"
  sql = "select name,dh1,dh2,l1,l2,s1,s2,m from chanel where" & findword
   Set adoPrimaryRS = New recordset
  adoPrimaryRS.Open sql, db, adOpenStatic, adLockOptimistic
  
  Do While Not adoPrimaryRS.EOF
  'STmain.STgg.Text = adoPrimaryRS("name")
  STmain.DH1.Text = adoPrimaryRS("dh1")
  STmain.DH2.Text = adoPrimaryRS("dh2")
  STmain.L1.Text = adoPrimaryRS("l1")
  STmain.L2.Text = adoPrimaryRS("l2")
  STmain.S1.Text = adoPrimaryRS("s1")
  STmain.S2.Text = adoPrimaryRS("s2")
  STmain.M.Text = adoPrimaryRS("m")
  adoPrimaryRS.MoveNext
  Loop
  adoPrimaryRS.Close
End Sub

上次说的问题已经解决，是引用的数据库有问题，但程序运行又出现错误“运行时错误 '-2147217900 (80040e14)':    FROM  子句语法错误”，不知道是什么原因，烦请老兄给我看看，多谢多谢！！！！

efan2000

是SQL语法错误。
Keyword = "'" & STgg.Text & "'"
findword = "name=" & Keyword
sql = "select name,dh1,dh2,l1,l2,s1,s2,m from chanel where" & findword
从上面判断，可能是where和name连在一起，中间少了一个空格。

zsz7707

谢谢老兄指点，但我对SQL语法不很熟悉，能否请老兄说的详细一点，什么地方少了一个空格？另外，有没有关于SQL语法的资料，给小弟介绍一下好吗？谢谢了！