este es mi programa


necesito que en el botom nueva venta, ponga los text en blanco para poder introducir nuevos valores para guardar en la base de datos.

espero me exprese bien y gracias de antemano 

Gracias por tu pronta respuesta,
mi codigo era este

adodc1.Recordset.AddNew

para el boton nuevo, me funcionaba al principio pero nose porque despues me dejo
de funcionar   me podrias explicar cual fue el motivo por el que dejara de funcionar?

El botom nueva venta es para agregar un nuevo formulario.

Saludos Cordiales!

Eso es un programa con base de datos mira todos los codigos

Private Sub cmdsalir_Click()
If MsgBox("¿Estas seguro que desea salir de la aplicacion?", vbQuestion + vbYesNo, "Pregunta") = vbYes Then
End
End If
 
End Sub
 
Private Sub Command1_Click()
Load frmarticulo
frmarticulo.Show vbModal
txtarticulo = articulo
End Sub
 
Private Sub Command10_Click()
txttotal = txtprecio * txtcantidad
End Sub
 
Private Sub Command11_Click()
Adodc1.Recordset.Delete
End Sub
 
Private Sub Command2_Click()
Adodc1.Recordset.Update
 
End Sub
 
Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MovePrevious
End If
 
End Sub
 
Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
End If
 
End Sub
 
Private Sub Command6_Click()
Load frmenvio
frmenvio.Show vbModal
End Sub
 
Private Sub Command8_Click()
 
txttotalapagar = txttotal - txtdescuento
End Sub
 
Private Sub Command9_Click()
Adodc1.Recordset.AddNew
End Sub
 
Private Sub Form_Load()
Fecha.Caption = Date
Skin.LoadSkin "C:\Documents and Settings\Propietario\Mis documentos\Flash\skins\skins/GT3.skn"
Skin.ApplySkin Me.hWnd
 
End Sub
 
Private Sub Option1_Click()
txtdescuento = txttotal * 0.02
End Sub
 
Private Sub Option2_Click()
txtdescuento = txttotal * 0.04
End Sub
 
Private Sub Option3_Click()
txtdescuento = 0
 
End Sub
 
 
Private Sub txtarticulo_Change()
If txtarticulo = "Monitor HP LCD" Then
txtprecio = 2300
End If
 
If txtarticulo = "Disco Duro 500GB" Then
txtprecio = 600
End If
 
If txtarticulo = "Memoria USB kingston 1GB" Then
txtprecio = 100
End If
 
 
 
End Sub
 
 

entonces cuando le de click al botom nueva venta quiero que me ponga una fila vacia para poder llenarla con otros datos 

Fijate que los textbox esten unidos al DataEnvironment (asi se llamaba?) o ADODC

Fijate la propiedad DataSource y DataMenber de cada textbox sea la correcta

1) El objeto se llama BotoN
2) Fíjate si no estas limpiando las cajas de texto "a mano", o si les escribís algo dentro antes de apretar "AddNew", si lo estas haciendo, te debe salir: "El evento fue cancelado por el objeto" o algo similar.
3) Ponerle nombre a los objetos no muerde..