Vb.net 2005 e Access

Dim m_comm As New OleDbConnection()
Dim m_cmd As New OleDbCommand()

m_conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=C:\Documents and Settings\utente\Documenti\Visual
Studio 2005\Projects\miodb.mdb;Persist Security Info=False"
m_conn.open()

Dim strInsert As String
strInsert = "INSERT INTO tab_autori (nome, cognome) VALUES ('" & Replace(txtNome.Text, "'", "''")
& "',  '" & Replace(txtCognome.Text, "'", "''")"

m_cmd.Connection=m_conn
m_cmd.CommandText = strInsert
m_cmd.Connectiontype=CommandType.Text
m_cmd.ExecuteNonQuery()
m_cmd.Dispose()
m_conn.Close()