Private Sub Rsvsventas_KeyPress(KeyAscii As Integer)
Si se presiona enter pasar el enfoque al siguiente control
If KeyAscii = 13 Then
   SendKeys Chr(9)
End If
End Sub
