Sub DBreader()
Dim cnt As New ADODB.Connection
Dim rst As New Recordset
Dim strconnectstr As String
Dim qry As String
strconnectstr = "Provider=MSDASQL;Driver={MySQL ODBC 5.2 Unicode Driver};Server=192.168.200. _
01;Database=customer_portal;User=name;Password=password;Option=3;"
qry = "SELECT Count(id) FROM customer_portal.user"
cnt.Open strconnectstr
rst.Open qry, cnt
Range("a5").CopyFromRecordset rst
End
Sub