Public Class AccessComm
    Private objConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
      "Provider = Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source = C:\Visual Studio\SaveLOGFile\LOGFiles.mdb; User ID =" & _
        "bhs")
 
    Private objDataAdapter As New OleDb.OleDbDataAdapter
    Private objDataView As DataView
    Private objDataSet As DataSet
 
    Private intColumns As Integer
    Private intRows As Integer
 
    Public Sub AccessCom()
        objDataView = Nothing
        objDataSet = New DataSet
 
        objDataAdapter = New OleDb.OleDbDataAdapter("SELECT * FROM" & _
          "SyncLogFile", objConnection)
 
        objConnection.Open()
        objDataAdapter.Fill(objDataSet, "SyncLogFile")
        objDataView = New DataView(objDataSet.Tables("SyncLogFile"))
        intColumns = objDataSet.Tables("SyncLogFile").Columns.Count
        intRows = objDataSet.Tables("SyncLogFile").Rows.Count
        objConnection.Close()
    End Sub
End Class