Dim conn As OleDbConnection
Dim constr As String = "Provider=.....; Data Source=" & ..... & ";"
....
            conn = New OleDbConnection(constr)
            conn.Open()
            ds = New DataSet
            Dim SQL As String = "Select max(Datum) FROM LOG" 
 
            da = New OleDbDataAdapter(SQL, conn)
            da.Fill(ds, "LOG")
            conn.Close()
...