Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties="Excel 8.0;HDR=Yes;IMEX=1";

 

Provider=SQLOLEDB;DATA SOURCE=192.168.9.248\SQLEXPRESS;INITIAL CATALOG=PACKS;User ID=PACKS;Password=13977931;

 

Provider=IBMDA400;Data Source=192.168.1.239;User ID=;Password=;

 

 

Dim Cnn As New ADODB.Connection

Cnn.ConnectionString = "Provider=IBMDA400;Data Source=192.168.1.239;User ID=;Password=;"

Cnn.Open

If Cnn.State <> adStateOpen Then

    Application.StatusBar = "Database Failure..."

    Exit Sub

End If