怎么连接不上数据库？高手进来帮个忙啊

Question

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As BooleanPublic Function OpenCn() As Boolean
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = "." 
conn.Properties("initial catalog").Value = "BookManage" 
conn.Properties("integrated security").Value = "SSPI" 
conn.Open
OpenCn = True
addFlag = True
Exit Function
strerrmag:
mag = "Data can''t connect"
Call MsgBox(mag, vbOKCancel, "Error:Data connect")
addFlag = False
End
End Function

Answer 1

conn.Properties("data source").Value = "."
难道是这句有问题吗?
把.换成local或服务器名试试
ip地址也可以一般不用这样的方式,而是直接写conn的connectionstring

Answer 2

是不是在主窗口中没有调用opencn函数？

Answer 3

另外,你这些Properties里面也没有指定uid和pwd啊?

Answer 4

Dim conn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
db = "Provider=SQLOLEDB.1;Password=abcdef;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=192.168.0.2"
conn.Open dbconn.close
set conn= nonthing