急问，高手请指教ADODB问题？？？

[huwei6000]

急问各位高手，为什么执行以下操作，总是显示“连接无法用于执行此操作。在此上下文中它可能已被关闭或无效”?怎么改！！！

Dim strsql As String
Dim newconn As New ADODB.Connection
Dim newrs As New ADODB.Recordset
If AorU = True Then
strsql = "select * from Company "
newrs.Open strsql, newconn, adOpenDynamic, adLockOptimistic
newrs.AddNew
Else
strsql = "select * from Company where ID = '" & ID & " '"
newrs.Open strsql, newconn, adOpenDynamic, adLockOptimistic
End If

newrs.Fields("ID") = ID
newrs.Fields("CompanyName") = CompanyName
newrs.Fields("Person") = Person
newrs.Fields("Address") = Address
newrs.Fields("Phone") = Phone
newrs.Fields("Email") = Email
newrs.Fields("QQID") = QQID

newrs.Update

[lovebaby]

Dim strsql As String ?什么语法?用VB?
ASP用Vbs
例:Dim newrs As New ADODB.Recordset '改成:Set newsrs = Server.CreateObject("ADODB.RecordSet")

[jingxiaoping]

建议改成

dim strsql
set newconn=server.createobject("adodb.connection")
set newrs=server.createobject("adodb.recordset")

If AorU then
  strsql="insert into Company (ID,CompanyName,Person,Address,Phone,Email,QQID) values ('"&ID&"','"&CompanyName&"','"&Person&"','"&Address&"','"&Phone&"','"&Email&"','"&QQID&"')"
else
  strsql="update Company set ID='"&ID&"', CompanyName='"&CompanyName&"',Person='"&Person&"',Address='"&Address&"',Phone='"&Phone&"',Email='"&Email&"',QQID='"&QQID&"' where ID='"&ID&"'"
end if
newconn.execute(strsql)