Este es el experimento que hice yo. Echale un vistazo (está todo amontonado y tal pero bueno) a ver si encuentras la diferencia. Solo he arreglado otra línea en "nuevo" donde se intentaba cargar nrcliente con "" cuando tenía que ser un número. Lo demás creo que está bien. Quizá otra línea que tengo anulada se debiera retocar:
'.nrcliente = txt_nrcliente.Text
cambiar por
.nrcliente = val(txt_nrcliente.Text)
que no he cambiado porque ya he subido el proyecto a megaupload.
Tambien tengo anulada la linea:
'Case 2: BuscarPor = t.nrcliente
Lo digo por si te quedas con mi proyecto que recuerdes des-anularla.
Lo demás no parece tener fallos.
http://www.megaupload.com/?d=3I8B0F9J
Si sigues sin encontrar el fallo sube el proyecto a megaupload y le echo un vistazo.
Saludos