¿Como pasar el contenido de un dataTable a un origen de datos Access?

Dim AdpDCompra As SqlDataAdapter
Dim SqlDCompra As String
Dim conA As OleDb.OleDbConnection
Dim conS As SqlConnection
conS = New SqlConnection()
conS.ConnectionString = ConLocal
conS.Open()
TblDCompra = New DataTable()
SqlDCompra = "SELECT * FROM detalle_pedidos_de_compra WHERE folio = " & Folio & ""
AdpDCompra = New SqlDataAdapter(SqlDCompra, conS)
AdpDCompra.Fill(TblDCompra)
AdpDCompra = Nothing : conS.Close() : conS = Nothing
conA = New OleDb.OleDbConnection()
conA.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\sistemas\Desktop\pedidos\" & NomArchivo & ""
conA.Open()
'En esta parte necesito pasar lo que tiene mi datable TblDCompra, a una tabla(Con la misma estructura y esta vacia) de base de datos Access.
ConA.Close() : conA = Nothing

Si se puede hacer con la misma clase DataAdapter estaría mejor.