se il campo sul DB è numerico allora è corretta altrimenti dovresti mettere delle singole apici prima e dopo

& "VALUES('" & Me.RichTextBox1.Text & "')"


o meglio ancora usare i parametri!

strIns = "INSERT INTO Persona (Nome, Eta, CodiceFiscale) VALUES (@Nome, @Eta, @CodiceFiscale)"

Dim cmd As New OleDbCommand(strIns, conn)

cmd.Parameters.Clear()
cmd.Parameters.Add(new OleDbParameter("@Nome", Me.RichTextBox1.Text))
cmd.Parameters.Add(new OleDbParameter("@Eta", "44")) 'anche se stringa ci pensa OLEDB a conformarlo nel tipo di ETA sul DB
cmd.Parameters.Add(new OleDbParameter("@CodiceFiscale", "ABCDEF12G34H567I"))

cmd.ExecuteNonQuery()
cmd.Dispose()