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

Excel
ConnectionStr ="Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DBPath & ";HDR=Yes';"
SQLStr = "SELECT * From [Sheet1$]" 


Access
ConnectionStr = "Provider= Microsoft.Jet.OLEDB.4.0;DataSource= " & path & ";Extended Properties=""Excel 8.0;HDR=Yes;FMT=Delimited;IMEX=1;"""
SQLStr = "SELECT * from Table"


MS SQL
ConnectionStr = "Provider=SQLOLEDB;Server=.;User ID=sa;Password=s1;Database=Northwind;"
SQLStr = "SELECT * from Table"
-------------------------------


--------------------------------
SQL DB
--------------------------------
Server	: 94.73.170.34
DB Name	: u0407468_MS_SQL
Usr	: u0407468_MS_SQL
Pwd	: EGitim.1-2-3-4-5-
