常用数据库链接字符串

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

常用数据库链接字符串

原文：http://www.cnblogs.com/lbnnbs/p/4782027.html