Loi 3709

[tranthuyetit]

Em có đoạn code đưa dữ liệu ra 1 list box, sử dụng database SQL2000. Test kết nối OK, nhưng đoạn code cứ bị báo lỗi Run time error 3709. Mọi người cùng sửa hộ em với nhé.(Em mới tập làm VBA)
Private Sub cmdreport_Click()
Dim rst As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim i As Integer
Dim sql As String
Set rst = New ADODB.Recordset
Set cn = New ADODB.Connection
Call ConectionDB
sql = "SELECT product_no FROM insp_res WHERE caselbl_no='I2GGE20VT0055J8'"
rst.Open sql, cn, adOpenStatic, adLockReadOnly

rst.MoveFirst
i = 0
With Me.lst1
.Clear
Do
.AddItem
.List(i, 0) = rst![product_no]
i = i + 1
rst.MoveNext
Loop Until rst.EOF
End With

End Sub

 

[tranthuyetit]

Mọi người giúp em với, phần kết nỗi dữ liệu em đã Ok rồi. Vậy mà khi chạy nó cứ báo lỗi "Run- time error 3709 . The connection cannot be used to peform thí operation. It is either close ỏ invalid in this context" ở dòng rst.Open sql, cn, adOpenStatic, adLockReadOnly.
Rất mong mọi người giúp đỡ.huuu!