hai provato lanciando un comando sql?
Insert Into tabella(nome campi) Values(campo1, campo2, ...)
es:
Public Sub LanciaSQL(ByVal comando As String)
Try
'Se la connessione al db è chiusa la apro
If cn.State = ConnectionState.Closed Then cn.Open()
'Valorizzo il comando SQL da lanciare
Dim cmd As New OleDbCommand(comando, cn)
'Lancio il comando SQL
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message, "Errore:", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
Finally
'Chiudo le connessioni
If cn.State = ConnectionState.Open Then cn.Close()
End Try
End Sub