Si mira pones por ejmplo algo como esto en la forma:
Private Sub Limpia()
text1.text=""
text2.text=""
....
End sub
En el boton de guardar:
rs.Update
If MsgBox("Su Contácto a sido creado decea usted Crear otro..", _
vbQuestion + vbYesNo, "Atención") = vbYes Then
Limpia
else
unload me
end if
Saludos
