主题：[求助]

改成，比如

If LastInputTickCount > 30000 Then
    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("数据源无法连通!")
    Else
        DataTables("表A").load
    End If
End If