If e.DataTableName = "订单"Then e.Cancel = True'打开项目的时候不加载此表 e.SelectString = "Select * From {订单} Where [_Identify] Is Null"'设置加载条件,注意如果主键不是_Identify,请改为实际的主键名称 EndIf
Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\data\Northwind.mdb;Persist Security Info=False" If Connections.TryConnect(s) = False Then MessageBox.Show("数据源无法连通!") End If