问一个基础的问题，关于数据库的连接的

Question

'版本号
Public Const VerNum As String = "版本 1.0"
'生成日期
Public Const GenDate As String = "日期 2011-07-01"
'数据源信息常量
Public Const Conn As String = "driver={sql server};Server=HEXINPING-PC;Database=欣浪酒店;User ID=hexinping;Password=767817445;Trusted_Connection=False;" '一次执行connect操作可以访问数据库的次数
Public Const CONNECT_LOOP_MAX = 10
我的问题：数据库是sql，用的是visual basic 开发工具，数据库登陆用的是系统默认用户Administrator，没有设密码，我想问下，红色部分应该怎样修改，我总改不对，所以一直没连上，希望朋友们帮忙下。

Answer 1

打开VB,右击工程资源管理器,添加一个DataEnvironment,右击打开的数据环境设计器中的Connection1,点属性,在打开的连接属性中选SQLServer Native Client 10.0(这是2008的,2005的是SQL Native Client,2000是SQL SERVER),在数据源上输入服务器实例名或IP地址或(local),选windowsNT集成安全设置,选数据库名,测试连接,按确定,然后,在Connection1的属性窗口中找到ConnectionSource,那个长长的字符串,就是你要的连接字符串.
如果要用sa登录,在"输入登录服务器信息"那儿选使用指定的用户名称和密码,输入用户名和密码,选中下面的允许保存密码,选择下面的数据库,测试连接正确后,按确认,然后,你就可以在connection1的属性窗口的connectionsource里看到完整的连接字符串了.

Answer 2

Public Const Conn As String = "driver={sql server};Server=HEXINPING-PC;Database=欣浪酒店;User ID=hexinping;Password='';Trusted_Connection=False;"

Answer 3

    Dim cn As New ADODB.Connection
    Dim rs As New Recordset
    Str1 = "select top 100 * from [八月]"
strcn="Provider=sqloledb;Database=test;Uid=sa;Pwd=30687724;data source=127.0.0.1,1433;"
127.0.0.1,1433;"这个为服务器的IP地址，1433为端口，要保证端口已打开
Provider=sqloledb：提供者：sql连接
    cn.Open strcn
    rs.Open Str1, cn
    [a1].CopyFromRecordset rs
End Sub
一个列子，你照着改就行了。

Answer 4

'数据源信息常量
Public Const Conn As String = "driver={sql server};Server=DEEP-20111207CK;Database=欣浪酒店;User ID=Administrator;Trusted_Connection=False;"谢谢大家，我机已经弄好了，系统重装了，没想到还得改Server，不过还是谢谢大家了，结贴给分了 呵呵