vb 连接 sql server08 显示无效的授权说明，求高手帮忙啊

[sherlock303]

我的sql-server 是windows 身份验证，没有设密码，vb的代码如下，麻烦高手看下
Option Explicit

Dim objconn As New ADODB.Connection
Dim sqlstring As String
Dim connstring As String
Dim objrs As New ADODB.Recordset

Private Sub showdata(rs As ADODB.Recordset, dgrid As MSFlexGrid)
Dim rownum As Integer
rownum = 1
dgrid.Rows = rownum
dgrid.Cols = rs.Fields.Count - 3
For j = 0 To rs.Fields.Count - 1 - 3
dgrid.TextMatrix(0, j) = rs.Fields(j).Name
Next j
Do While Not rs.EOF
rownum = rownum + 1
dgrid.Rows = rownum
For j = 0 To rs.Fields.Count - 1 - 3
If Not IsNull(rs.Fields(j).Value) Then
dgrid.TextMatrix(rownum - 1, j) = rs.Fields(j).Value
End If
Next j
rs.MoveNext
Loop
End Sub

Private Sub form_load()
connstring = "provider=sqloledb.1"
connstring = connstring & "initial catalog=p-pc; data source=a

building"
With objconn
.ConnectionString = conntring
.ConnectionTimeout = 10
.Open
End With
End Sub

Private Sub command1_click()
objrs.Open "set1", objconn, adOpenDynamic, adCmdTable
Call showdata(objrs, MSFlexGrid1)
End Sub
Private Sub command2_click()
objrs.Close: Set objrs = Nothing
objrs.Close: Set objconn = Nothing
End
End Sub

[风桑]

不要用WIN的身份验证，自己设数据库账户密码然后用ADODC控件生成连接串试试？

[sherlock303]

引用 1 楼 lex4271656 的回复:

不要用WIN的身份验证，自己设数据库账户密码然后用ADODC控件生成连接串试试？

现在用sql验证，在server里面登录没问题呢，但在vb用sa登录，却显示登录失败，怎么解决？

[饮水需思源]

'这样试试
with objconn
    If .State = adStateOpen Then .Close
    .ConnectionString = "driver=SQL Server;server=SQL实例名;uid=SA;pwd=SA的密码;database=数据库名"
    .CommandTimeout = 0
    .Open
End With