AYUDA con Agenda EN VB 2008

[swag]

el problema esque tengo una agenda y tengo muchos textbox para agregar la informacion como Nombre,Direccion,Folio,Email,Telefono Etc... y esta se guarda en SQL y luego al final cuando terminas todo se exporta a excel,todo bien hasta ai.
solo sirven los campos Nombre,Direccion,Folio,Email,Tel cAsa ,Tel Oficina,Tel Cel.,Municipio.

el problema es que por ejemplo cuando quiero activar otra textbox por ejemplo: Fecha De Registro pero me dice que hay un error en la funcion insert into.

Código:

rivate Sub BTN_NUEVO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTN_NUEVO.Click
        If BTN_NUEVO.Text = "Nuevo" Then
            Call LIMPIAR()
            BTN_NUEVO.Text = "Agregar"
            TXT_NOMBRE.Focus()
            TXT_NOMBRE.Enabled = True
        Else
            FRM_PRI.CONEXION.Open()
            FRM_PRI.SQL = ("Insert into AGENDA (NOMBRE,FOLIO,Celular,Casa,OFIcina,email,DIReccion,Municipio,Fecha DE NAcimiento)values ('" & _
                       TXT_NOMBRE.Text & "','" & TXT_GUIA.Text & "','" & txt_cell.Text & "','" & _
                       txt_part.Text & "','" & txt_of.Text & "','" & txt_mail.Text & "','" & _
                       txt_dir.Text & "',' " & TXT_MUN.Text & "',' " & TXT_NAC.Text & "')")

            FRM_PRI.ORDEN_BD = New OleDb.OleDbCommand(FRM_PRI.SQL, FRM_PRI.CONEXION)
            FRM_PRI.ORDEN_BD.CommandType = CommandType.Text
            Try
                FRM_PRI.ORDEN_BD.ExecuteNonQuery()
                BTN_NUEVO.Text = "Nuevo"
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
            FRM_PRI.CONEXION.Close()
            seleccion = "todos"
            Call CONSULTA()
        End If
    End Sub

tambien necesito ayuda por alguna otra duda que se me presente alguien que me haga favor de ayudarme por favor