达人帮忙看下程序的语法错误,谢谢

Dim rs As Recordset
Dim objrs As Recordset
Dim conn As Connection
Dim id
Dim lastID As String
Set conn = New Connection
Set rs = New Recordset
Set objrs = New Recordset
conn.ConnectionString = "driver={sql server};server=zhangh;uid=sa;pwd=;database=niss"
conn.ConnectionTimeout = 30
conn.CursorLocation = adUseClient
conn.Open
objrs.CursorLocation = adUseClient
objrs.Open "select * from gjsz", conn, 1, 3
If objrs.BOF Then
lastID = "0"
Else
objrs.MoveLast
lastID = Trim(objrs.Fields("id").Value)
End If
rs.Open "select * from view11 where c_doc_id > '& lastID', conn, adOpenKeyset"
运行后提示
实时错误'3709'
连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。
错误在最后一行
帮帮忙啊

一个C++程序，BC编写的画图，帮忙看下语法错误在哪 帮忙看下这篇文章有无语法错误 帮忙改下英语短剧的语法错误 谢^^ 英语达人.30分帮忙改下语法错误..小弟在这里谢过.. 帮忙更正下语法错误 insert into 语法错误,请帮忙看下(asp) 帮忙看下程序 帮忙看下我的java 程序 c++编的程序 帮忙看下 恳请达人帮忙看下这个程序