Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Conn As New Data.Odbc.OdbcConnection
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = vbString & ";Data source = E:\Data Base\DataHistory.mdb"
.ConnectionTimeout = 90
.Open
End With