

Public Sub Modificar_Estudiante(oEstudianteTO As EstudianteTO)
On Error GoTo MiError
EstudianteDAO
Set cm = New ADODB.Command
With cm
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = "UPDATE Estudiante set Id_Colegio='" & oEstudianteTO.GetEstudiante_Id_Colegio & "', Nombre='" & oEstudianteTO.GetEstudiante_Nombre & "', Sexo='" & oEstudianteTO.GetEstudiante_Sexo & "', Grado='" & oEstudianteTO.GetEstudiante_Grado & "', Seccion='" & oEstudianteTO.GetEstudiante_Seccion & "', Edad='" & oEstudianteTO.GetEstudiante_Edad & "', Direccion='" & oEstudianteTO.GetEstudiante_Direccion & "', Id_Distrito = '" & oEstudianteTO.GetEstudiante_Id_Distrito & "', E_mail = '" & oEstudianteTO.GetEstudiante_E_mail & "' " & _
(siguiente linea)
" Telefono = '" & oEstudianteTO.GetEstudiante_Telefono & "', ReferenciaTelf = '" & oEstudianteTO.GetEstudiante_ReferenciaTelf & "', TipoTelf = '" & oEstudianteTO.GetEstudiante_TipoTelf & "', Id_medio = '" & oEstudianteTO.GetEstudiante_Id_Medio & "', Ocupacion = '" & oEstudianteTO.GetEstudiante_Ocupacion & "', Institucion = '" & oEstudianteTO.GetEstudiante_Institucion & "', Estado = '" & oEstudianteTO.GetEstudiante_Estado & "' WHERE Id_Estudiante='" & oEstudianteTO.GetEstudiante_Id_Estudiante & "'""
.Execute
End With
Exit Sub
MiError:
MsgBox Err.Description, vbCritical, "Error"
End Sub
*donde dice siguiente linea es la linea siguiente del commandtext .. esta bien hacerlo d esa forma? o toi mal?

gracias