Question

vb连接不上主机屋的数据库（有代码）

Private Sub Command1_Click()
Dim objcon As New ADODB.Connection
Dim strConn As String
objcon.CommandTimeout = 3
strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=zjwdb_12345;Password=1234567890;Initial Catalog=zjwdb_12345;Data Source=111.00.000.000"
objcon.Open strConn
If objcon.State <> adStateOpen Then
MsgBox ("连接失败")
End If
objcon.Close
End Sub
上面的账号密码我是乱写的。
这样写就是连接失败呀，是主机屋的免费数据库，为什么呢？求大神解答呀。
下面是数据库的信息。

Answer 1

Data Source=111.00.000.000:3306
添加上连接端口试试。

追问

strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=zjwdb_*****;Password=**********;Initial Catalog=zjwdb_*****;Data Source=111.**.***.***:3306"

你好，我这样写了，出现这个提示：

追答

连接mysql数据库得用MySQL Connectors。参考网址http://dev.mysql.com/downloads/connector/

追问

用MySQL Connectors连接了，提示是这样，是主机屋的数据库不允许连接吗？