Añadir datos a una tabla de Access

'1 - Importar espacio de nombres
Imports System.Data.OleDb

Public Class Form4

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '2 - crear conexion
        Dim conexion As New OleDbConnection

        '3 - cadena de conexion
        conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\factura_cliente.accdb;Persist Security Info=False;"

        '4 - abrir conexion
        conexion.Open()

        '5 - crear la sentencia SQL
        Dim comando_SQL As New OleDbCommand("INSERT INTO Clientes (Nombre_comercial, Nombre_fiscal, Cif, Dirección) VALUES ('" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "')", conexion)

        '6 - se crea el reader
        Dim registros_afectados As Integer = comando_SQL.ExecuteNonQuery

        Button1.Enabled = False

        conexion.Close()

        MessageBox.Show("El número de registros añadidos ha sido: " & registros_afectados.ToString)
    End Sub
End Class