Read Ms Access Mdb File

Hi Scott,

Isi_Data_Mentah_From_Access_HIT (....)
Insert_Bulk_Data("TEMPHIT", strSQLInvCompanyConnection, dtHIT)


  Private Function Isi_Data_Mentah_From_Access_HIT(dteFromDate As DateTime, dteToDate As DateTime) As DataTable

        Dim sbdSQLCommand As New System.Text.StringBuilder

        sbdSQLCommand.Append(" SELECT DISTINCT")
        sbdSQLCommand.Append(" FingerPrintID, DateLog, TimeLog")
        sbdSQLCommand.Append(" FROM PersonalLog")
        sbdSQLCommand.AppendFormat(" WHERE DateLog BETWEEN #{0}# AND #{1}#", Format(dteFromDate, "yyyy/MM/dd"), Format(dteToDate, "yyyy/MM/dd"))
        sbdSQLCommand.Append(" ORDER BY FingerPrintID")

        Dim strSQLCommand As String = sbdSQLCommand.ToString

        Try

            Dim accessDataSet As New DataSet()
            Dim accessConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & txtFile.Text.Trim & ";Persist Security Info=True;Jet OLEDB:Database Password=" & strPassword)
            Dim accessAdapter As New OleDbDataAdapter(strSQLCommand, accessConnection)

            accessAdapter.Fill(accessDataSet, "Logs")
            Return accessDataSet.Tables("Logs")

        Catch ex As Exception
            MsgBox(ex.Message.ToString, MsgBoxStyle.Information, Me.Text)
   
        End Try
     

    End Function

  Public Shared Sub Insert_Bulk_Data(ByVal strTargetFileName As String, _
                              ByVal strTargetConnection As String, _
                              ByVal dtTable As DataTable)

        If dtTable.Rows.Count = 0 Then Exit Sub

        Try

            Using conApp As SqlConnection = New SqlConnection(strTargetConnection)
                conApp.Open()

                Dim sqlbulkSubt As New SqlBulkCopy(conApp)
                sqlbulkSubt.DestinationTableName = strTargetFileName

                For Each dtColumn As DataColumn In dtTable.Columns
                    sqlbulkSubt.ColumnMappings.Add(dtColumn.ColumnName.ToString, dtColumn.ColumnName.ToString)
                Next

                sqlbulkSubt.WriteToServer(dtTable)
            End Using

        Catch ex As Exception
            Throw
        End Try

    End Sub

Hope this is clear enough.

Thank you.