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

VB6.0连接SQL数据库出现问题
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是我的数据库名称

------解决方案--------------------
这个也能用？驱动都没有声明？用户名　密码呢？
------解决方案--------------------
是没问题，如果打不开数据库连接会有错的

经测vb.net中是正常的,状态为ConnectionState.Open即为1
------解决方案--------------------
把.改为计算机名或IP地址试试

------解决方案--------------------
等待.学习sql数据库连接
------解决方案--------------------
你添加一个adodc控件, 然后使用这个控件连接数据库, 连完之后就可以得到正确的ConnectionString了