Visual Basic - mensaje error

estoy trabajando con control datagrid y el control ado
y 3 cuadros de texto y 2 botones de comando donde ingreso nombre apellido direccion.
cuando lleno los 3 cuadro de texto y precionado el boton nuevo ,y luego el boton grabar, registra los datos en el datagrid y no hay problema.
pero cuando dejo vacio los 3 cuadro de texto y preciono boton nuevo y salgo de la aplicacion me sale el siguiente error:

no es posible insertar fila vacia. dbe contener al menos un valor columna establecida

como puedeo eliminar este mensaje de error

Dim cn As New ADODB.Connection
Dim rs As New Recordset

Private Sub cmdnuevo_Click()

Ado.Recordset.AddNew

end sub

Private Sub cmdgrabar_Click()
Ado.Recordset.Update

Ado.Recordset.MoveLast
end sub

Private Sub Form_Load()

cn.CursorLocation = adUseClient
Call IniciarConexion

Sub IniciarConexion()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Escritorio\\bd1.mdb;Persist Security Info=False"

end sub

lo que entiendo es que debes de insertar los valores en los textboxes antes de presionar nuevo y grabar como dices

creo que esto quiero decir el mensaje
no es posible insertar fila vacia. debe contener al menos un valor columna establecida
no es posible meter un registro nuevo si no tiene al menos un valor

hola
asi este los textbox vacios y al precionar nuevamente el boton nuevo
no salga error

Captura el error con On Error y fijate que queres hacer ante ese caso

por ejemplo deshabilitar uno de los botones , cerrar la aplicacion u otra cosa.

saludos

Private Sub cmdnuevo_Click()

IF TEXT1.TEXT<>"" AND TEXT2.TEXT<>"" AND TEXT3.TEXT<>"" THEN
Ado.Recordset.AddNew
ELSE
MSGBOX"DEBE LLENAR LOS TRES VALORES"
END IF

end sub