Visual Basic.NET - Insertar datos a tabla de Access

Hola a todos soy nuevo en este foro.

Estoy empezando a usar Visual Studio 2010 y tengo el siguiente problema.

Desde un TexBox en un formulario quiero registrar la hora y fecha en la que se registra un usuario. Pero no me esta capturando la información.

Este es el codigo que tengo en el boton del formulario:

Imports System.Data
Imports System.Data.OleDb



Public Class Form1

Dim conn As OleDb.OleDbConnection
Dim cmd As OleDb.OleDbCommand


Private Sub BtnRegistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRegistrar.Click

Dim Fecha As String
Dim Hora As String
TxtHora.Text = Date.Now().ToLongTimeString
Fecha = Date.Now().ToLongDateString
Hora = TxtHora.Text

Try
conn.Open()
cmd = New OleDb.OleDbCommand("insert into TblRegEntrada (NoGafete,Fecha,HoraRegistro) values (‘ " + TxtCodigo.Text + " ‘,’" + Fecha + "‘,’" + Hora + "‘)", conn)
cmd.Parameters.AddWithValue("NoGafete", TxtCodigo.Text)
cmd.Parameters.AddWithValue("Fecha", Fecha)
cmd.Parameters.AddWithValue("HoraRegistro", Hora)
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show("Hora de Ingreso " + Hora, Fecha, MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Error de Conexión")
End Try

End Sub

Private Function ImportsSystem() As Object
Throw New NotImplementedException
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim con As String = "Provider=Microsoft.JET.oledb.4.0;Data Source=C:\Bases RBE XIII\Rutas.mdb"
conn = New OleDb.OleDbConnection(con)
conn.Open()
End Sub
End Class

El ejemplo lo he sacado de esta Web:

http://agonzalesdv.wordpress.com/2009/08/20/insertar-data-desde-vb-net-en-access/