Dim sql As String = "INSERT INTO {DEINE_TABELLE} (Spalte1, Spalte2, Spalte3)" & _
  "VALUES (Wert1, 'Wert2', 'Wert3')"
Dim cn As New OleDb.OleDbConnection("{DEIN_CONNECTION_STRING}")
Dim cmd As New OleDb.OleDbCommand(sql, cn)
Try
  cmd.ExecuteNonQuery()
Catch ex As OleDb.OleDbException
  MessageBox.Show(ex.ToString)
Finally
  cn = Nothing
  cmd = Nothing
  sql = Nothing
End Try