Bret wrote:
I need sample of VBA code of the best way to:
1) do a SQL connection from Excel
2) Execute a query statement that returns the result to a cell.

Sub test()
Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
rs.Open _
"SELECT CompanyName FROM Customers", _
"Provider=SQLOLEDB.1;Data Source=(local);" & _
"Initial Catalog=Northwind;" & _
"User Id=sa;Password=;"
Sheet1.Range("A1").CopyFromRecordset rs
End Sub

Jamie.

--