Visual Basic - tengo ste cod para borrar, q falla?GRACIAS!!!

Muchas gracias p resolver mis dudas, pero tngo otra mas, q falla n ste codigo? muxas gracias

Dim x As Integer
Option Explicit
Public izenak As String

Private Sub Command1_Click()
Dim rs As Recordset
Set rs = CreateObject("Adodb.recordset")
Dim cn As Connection
Set cn = CreateObject("Adodb.connection")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Mis documentos\Ainhoa\ainhoa\piezas - verificadores\PRUEBA.mdb;Persist Security Info=False", "admin"
rs.Open "select * from piezas", cn, 3, 3

rs.Fields(0).Value = Text1.Text
rs.Fields(1).Value = Text2.Text
rs.Fields(2).Value = Text3.Text
rs.Delete
rs.Close
cn.Close

MsgBox "Guardado"
End Sub

Private Sub salir_Click()
Form1.Show
Form4.Hide
End Sub

Hola

Dim x As Integer
Option Explicit
Public izenak As String

Private Sub Command1_Click()
Dim rs As Recordset
Set rs = CreateObject("Adodb.recordset")
Dim cn As Connection
Set cn = CreateObject("Adodb.connection")

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Mis documentos\Ainhoa\ainhoa\piezas - verificadores\PRUEBA.mdb;Persist Security Info=False", "admin"
rs.Open "select * from piezas", cn, 3, 3

rs.Add <<<<<<<<<<<<<<< Agregar
rs.Fields(0).Value = Text1.Text
rs.Fields(1).Value = Text2.Text
rs.Fields(2).Value = Text3.Text
rs.Update <<<<<<<<<<<<< Agregar
rs.Delete
rs.Close
cn.Close

MsgBox "Guardado"
End Sub

Private Sub salir_Click()
Form1.Show
Form4.Hide
End Sub

Saludos

Que pretendes hacer ingresar datos o eliminarlos?
recordset.delete es para borrar