Visual Basic - error al editar registros con listview

Hola a todos,
tengo un problema al editar registros,seguro que es una chorrada pero no doy con la tecla.
Al editar un registro me da error "35600" en tiempo de ejecución, sólo da el error cuando algún campo está en blanco, es decir si edito un registro que tiene todos sus campos completos no salta.
If Trim(.Text1(1).Text) <> " " Then
.Text1(1).Text = LV.SelectedItem.ListSubItems(1).Text '
End If
If Trim(.Text1(2).Text) <> " " Then
.Text1(2).Text = LV.SelectedItem.ListSubItems(2).Text '
End If
If Trim(.Text1(3).Text) <> " " Then
.Text1(3).Text = LV.SelectedItem.ListSubItems(6).Text '
End If
If Trim(.Text1(0).Text) <> " " Then
.Text1(0).Text = LV.SelectedItem.ListSubItems(4).Text '
End If
If Trim(.Text1(5).Text) <> " " Then
.Text1(5).Text = LV.SelectedItem.ListSubItems(7).Text '
End If
If Trim(.Text1(6).Text) <> " " Then
.Text1(6).Text = LV.SelectedItem.ListSubItems(8).Text '
End If
If Trim(.Text1(7).Text) <> " " Then
.Text1(7).Text = LV.SelectedItem.ListSubItems(10).Text '
End If
If Trim(.Text1(8).Text) <> " " Then
.Text1(8).Text = LV.SelectedItem.ListSubItems(15).Text '
End If
If Trim(.Text1(9).Text) <> " " Then
.Text1(9).Text = LV.SelectedItem.ListSubItems(13).Text '
End If
If Trim(.Text1(4).Text) <> " " Then
.Text1(4).Text = LV.SelectedItem.ListSubItems(3).Text '
End If
If Trim(.Text1(10)) <> " " Then
.Text1(10).Text = LV.SelectedItem.ListSubItems(12).Text '
End If
.CmbSexo = LV.SelectedItem.ListSubItems(5).Text
.lblFecha = LV.SelectedItem.ListSubItems(9).Text
.CmbCristoVirgen = LV.SelectedItem.ListSubItems(11).Text
.CmbTraje = LV.SelectedItem.ListSubItems(14).Text
' .CmbCuota = LV.SelectedItem.ListSubItems(12).Text
.IdRegistro = LV.SelectedItem.Text
Luego tengo otro problema imaginemos que cargo un registro que está completo al guardar me da el siguiente error:
"No se han especificado valores para algunos de los parámetros requeridos"
Case EDITAR_REGISTRO
cnn.Execute "UPDATE Personas set Nombre = '" & Text1(1) & _
"', Apellido = '" & Text1(2) & _
"', Telefono = '" & Text1(3) & _
"', Direccion = '" & Text1(4) & _
"', Sexo = '" & CmbSexo.ListIndex & _
"', CP = '" & Text1(0) & _
"', Movil = '" & Text1(5) & _
"', FechaNacimiento = '" & Text1(6) & _
"', FechaDeBaja = '" & Text1(7) & _
"', MotivoBaja = '" & Text1(8) & _
"', NCuenta = '" & Text1(9) & _
"', TrajePropio = '" & CmbTraje.ListIndex & _
"', CristoVirgen = '" & CmbCristoVirgen.ListIndex & _
"', Cuota = '" & Text1(10) & _
"' where Id = " & IdRegistro & ""
Case AGREGAR_REGISTRO

Si necesitáis más código decidmelo
Gracias.