En visual basic usare un command button

Es complicado darte una respuesta:
1. ¿No especificas que version de Vb trabajas? (6, 2003, 2005, 2008)
2. No especificas que tipo de tecnología de acceso a datos utilizas( DAO / ADO: VB6, ADO.NET : 2003/2005/2008)
3. No especificas que tipo de base de datos utilizas.

Visual basic 6.0 uso un ado. con una tabla en access 2003 con 5 campos:
Código descripción fecha precio cantidad
Pero necesito un código en un command button que se llamara eliminar
el command button esta adentro de un formulario y este debe eliminar un registro de la tabla productos
desde visual
Ah y si me podrías ayudar de favor un command button
que
los de de alta otra vez... por favor.

Cual es la condición para eliminar el registro

Al eliminar
Lo elimina de la tabla pero a la vez lo congela
Para cuando se vuelva a dar de alta
Este se descongela y aparece el registro otra vez cuando se de de alta otra vez

delete from mitabla where id= 13

Dim B As Byte
Private Sub BUSCAR_Click()
B = 0
BASE.Refresh
BASE.Recordset.MoveFirst
While Not BASE.Recordset.EOF
    If BASE.Recordset.Fields("codigo") = COD.Text Then
        DES.Text = BASE.Recordset.Fields("descripcion")
        FEC.Text = BASE.Recordset.Fields("fecha")
        PRE.Text = BASE.Recordset.Fields("precio")
        CAN.Text = BASE.Recordset.Fields("cantidad")
        B = 1
    End If
    BASE.Recordset.MoveNext
Wend
If B = 0 Then
A = MsgBox("el registro no existe ", , "BUSCAR")
End If
End Sub
Experto por favor necesito un código que elimine los campos
ya no quiero que los busque, quiero que los elimine,: "base" es el nombre del adodc
los campos de la tabla están en access pero en un formulario quiero agregar un command button que se llamara eliminar
gracias

BASE.Recordset.Delete

'Dim MIVAR,
Private Sub Command1_Click()
MIVAR = 0
MIVAR = MsgBox("DESEA ELIMINAR A ESTE USUARIO?", 4, "MENSAJE ")
If MIVAR = 6 Then
On Error GoTo DeleteErr
With BASE.Recordset
.Delete
.MoveNext
If .EOF Then .Delete
End With
End If
Exit Sub
DeleteErr:
MsgBox Err.Description
If MIVAR = 6 Then
MIVAR = MsgBox("EL REGISTRO FUE ELIMINADO", , "MENSAJE")
COD = ""
DES = ""
FEC = ""
PRE = ""
CAN = ""
COD.SetFocus
End If
Esto lo utilizo como mensaje
  Pero no elimina los datos
Dice que hay problema con la instrucción with
me puedes ayudar soy principiante
ademas no se como declarar base. Recordset. delete 
lleva alguna variable?
Ayudame por fa con un poco de más código uso una tabla en access 2003
con 5 campos código descripción fecha precio cantidad

Asumo lo siguiente:
BASE. Recordset es un objeto ADOBD. Recordset, para eliminar un registro solamente se utiliza el método .delete, antes de eso debes estar posicionado sobre el registro a eliminar.
En el código utilizas 2 veces .Delete no entiendo tu lógica para esto, si solo vas a eliminar un registro el primer .delete es suficiente.