VB6.0连接SQL数据库出现问题

Question

Private Sub lianjieSQL()
On Error Resume Next
'Dim DBconnect As New ADODB.Connection
Dim conn As New ADODB.Connection
' Set conn = New ADODB.Connection
'建立无源数据库连接
conn.ConnectionString = "server=.;integrated security=SSPI;Database=tupian"conn.Open
MsgBox conn.State
End Sub
代码如上，我觉得我的代码写的没问题啊，但是conn.state=0;为啥啊？tupian是我的数据库名称

Answer 1

是没问题，如果打不开数据库连接会有错的经测vb.net中是正常的,状态为ConnectionState.Open即为1

Answer 2

你添加一个adodc控件, 然后使用这个控件连接数据库, 连完之后就可以得到正确的ConnectionString了