人性心理学与读心术:无法打开"kf"中请求的数据库,登陆失败

来源:百度文库 编辑:中科新闻网 时间:2024/04/29 18:25:51
Private Sub connect()
'ADO连接
Dim cn As New ADODB.Connection
'设置鼠标形状
MousePointer = vbHourglass
'使用非DSN方式连接
cn.ConnectionString = "DRIVER=SQL SERVER" & _
";SERVER=" & sServer & _
";UID=" & sLoginID & _
";PWD=" & sPassword & _
";DATABASE=kf"
cn.Open
'cn.Close
'恢复鼠标形状
MousePointer = vbDefault
End Sub

总是提示无法打开"kf"中请求的数据库,登陆失败.是为什么呀,急呀.