Visual Basic - Escribir UPDATE

Por favor deseo escribir de otra manera este codigo y que cumpla el mismo obbjetivo

Case EDITAR_REGISTRO
cnn.Execute "UPDATE Personas set Nombre = '" & Text1(1) & _
"', Apellido = '" & Text1(2) & _
"', Telefono = '" & Text1(3) & _
"', Direccion = '" & Text1(4) & _
"', Sexo = '" & CmbSexo.ListIndex & _
"' where Id = " & IdRegistro & ""


ya que de ves en cuando presenta fallas

Hola Fernando

Si sólo te falla a veces, lo primero es indicar cuando te falla (un caso concreto) por que puede ser que estés pasando algún valor mal y ese es el problema y no la instrucción.

Cuando falla que error te da?
En ese error cuando revisas los parámetros que valores tienen?