用vb 6.0　编写连接和打开SQL数据库的问题
我用vb 6.0接和取SQL Server料的程式。程式如下：


Private Sub cmdSearch_Click()

Dim conn As New ADODB.Connection
Dim rs As Recordset
conn.ConnectionString = "Driver={SQL Server};server=XICHEN;uid=sa;pwd=;database=disc "
conn.Open

'rs.CursorLocation = adUseClient
'rs.CursorType = adOpenStatic

Set rs = CreateObject( "adodb.recordset ")
' rs.ActiveConnection = conn

rs.Open "select * from disc_name ", conn, adOpenForwardOnly, adLockReadOnly
'other codes go here
End sub


行後老提示rs.Open "select * from disc_name ", conn, adOpenForwardOnly, adLockReadOnly句有，
是open“未找到方法或料成”， 不知何？


[解决办法]
rs.Open "select * from disc_name ", conn, adOpenDynamic, adLockOptimistic
试试
[解决办法]
也可能是 rs 没有定义 Dim rs As New ADODB.Recordset
[解决办法]
RS要重新NEW一下
Dim rs As New ADODB.Recordset