实时错误3219 此环境中不允许操作

VB code

Dim conn As ADODB.ConnectionDim rs As ADODB.RecordPrivate Sub Form_Load()Set conn = New ADODB.Connectionconn.Open "DSN=UserN", "sa"Set rs = New ADODB.Recordrs.Open "Select 用户名 from User", conn, adOpenStatic, adLockOptimisticIf rs.RecordCount > 0 ThenMsgBox rsEnd IfEnd Sub

出错行数：rs.Open "Select 用户名 from User", conn, adOpenStatic, adLockOptimistic

错误提示：实时错误' 3219'
此环境中不允许操作

给位大哥大姐，求解啊

[解决办法]
一般是用:ADODB.Recordset，你是不是写错了？
[解决办法]
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.Open "DSN=UserN", "sa"
Set rs = New ADODB.Recordset

rs.Open "Select 用户名 from User", conn, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
MsgBox rs
End If
End Sub

[解决办法]

VB code

Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetPrivate Sub Form_Load()Set conn = New ADODB.Connectionconn.Open "DSN=UserN", "sa"Set rs = New ADODB.Recordsetrs.Open "Select 用户名 from User", conn, adOpenStatic, adLockOptimisticIf rs.RecordCount > 0 ThenMsgBox rs(0)End IfEnd Sub
[解决办法]
http://download.csdn.net/source/1498324