SQL SERVER7.0＋ VB6.0 ？？？

[0759]

请各位高手帮我修改程序：

这是一个简单的“客户/服务器”程序：

服务器名称:ABC，用sql server7.0创建了一个数据库CX。

客户端程序：只有一个按钮，语言用VB6.0

Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim conn As String
conn = "driver={sql server};server=abc;uid=sa;pwd=;database=cx"
cn.Open conn
End Sub

我在客户机上单击按钮后却连不上服务器的数据库，错误信息是：
实时错误“91”
对象变量或with块变量未设置

[伍子V5]

是不是你机子上没有装SQL SERVER 客户端
没有SQL SERVER 驱动
可以尝试下面一个连接字符串
"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=dbname;Data Source=servername"

[txlicenhe]

Private Sub Command1_Click()
Dim cn As new ADODB.Connection
Dim conn As String
conn = "driver={sql server};server=abc;uid=sa;pwd=;database=cx"
cn.Open conn
End Sub

[zjcxc]

'对象没有被创建,改为
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim conn As String
conn = "driver={sql server};server=abc;uid=sa;pwd=;database=cx"
set cn=new adodb.connection '创建对象
cn.Open conn
End Sub

[nforcedzh]

申明错了，应该是
dim cn as new ADODB.Connection

[LiaoCheng]

Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim conn As String
set cn = new connection'创建对象
conn = "driver={sql server};server=abc;uid=sa;pwd=;database=cx"
cn.Open conn
End Sub

[leimin]

in client you should install MDAC2.7.

[longji]

在客户机SQL Server7.0中客户端实用工具中配置一个服务器别名为abc的TCP/IP服务