怎么访问网络数据库啊？mssqlserver的数据库

Question

该怎么写啊 以前从来没做过。帮看看这样写有什么错？
Public con As New ADODB.Connection '定义数据连接字符串
Public rs As New ADODB.Recordset '定义记录集
Public sql As StringPublic Sub openfile()
    Set con = New ADODB.Connection
    Set rs = New ADODB.Recordset
    con.ConnectionString = "DRIVER=SQL Server;SERVER=QIANSHUO;APP=Visual Basic;WSID=QIANSHUO;DATABASE=ddy"
'    con.ConnectionString = "Driver={SQL Server}; Database=baitai; UID=sa; PWD=sa; Server=192.168.0.110"
    con.Open
    sql = "select * from baitai"
    rs.CursorLocation = adUseClient
'    rs.Open sql, con, adOpenKeyset, adLockPessimistic '打开记录集
End Sub

Answer 1

连接字符串这样写试试con.ConnectionString = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=baitai;Data Source=192.168.0.110"