XP下vb6用ADO2.8，在WIN7下无响应解决方案

XP下vb6用ADO2.8，在WIN7下无响应
我用XP系统下的VB6，引用ADO2.8,写了个连接SQL2000的代码,在XP下运行无任何问题,但是在WIN7下就要等待30秒这样才会有反应,在此期间,程序的界面上显示是无响应,系统是全新装的,WIN7的64位和32位版本都是这样。然后还有件很怪异的事情，我把这个程序放到Parallels虚拟机装的WIN7上就很正常，有谁也碰到过这种问题？？？求助啊
代码如下：
Public cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Private Sub Command1_Click()
On Error GoTo err_1
        cn.ConnectionString = "driver={SQL Server};server=0.0.0.0,端口号;uid=;pwd=;database=**"
        
        cn.Open
        cn.Execute ("select * from czry")
        cn.Close


err_1:
If Err.Number = 0 Then
    MsgBox "OK"
Else
    MsgBox "Error"
End If
End Sub

Private Sub Command2_Click()
Adodc1.ConnectionString = "Provider=sqloledb;Data Source=0.0.0.0,端口号;Network Library=DBMSSOCN;Initial Catalog=**;User ID=;Password=;"
Adodc1.RecordSource = "select * from cgd"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub


注：应楼主要求修改
------解决方案--------------------

        cnn.ConnectionString = "driver={SQL Server};server=别名;uid=用户名;pwd=密码;database=默认数据库"