Sub test()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Dim ConStr As String
ConStr = "Provider=sql100.xtreemhost.com;Server=sql100.xtreemhost.com;Database=myDatabase;Uid=xth_9595110;Pwd=myPassword"

Dim sql As String
sql = "select * from myTable"

''' Application-defined or Object-defined error
cn.Open ConStr

rs.Open sql, cn

MsgBox rs("Headings")

rs.Close
cn.Execute sql
cn.Close

End Sub

$connect = mysql_connect("sql100.xtreemhost.com","xth_9595110","myPassword") or die(mysql_error());

mysql_select_db("myTable",$connect);