Visual Basic - limpiar bases de datos

Sub proceso_DEL()

'Sql es el string o sentencia

'Rs es el recordSet

'Conexion es la conexion a ala base.

 'DELETE DATA ON TABLE  TO CALCULATE

   SQL = "Delete * from Comprobante"

   rs.Open SQL, conexion

   rs.Close

End Sub

Set cn = New ADODB.Connection

cn.Provider = "Microsoft.Jet.OLEDB.4.0"

cn.ConnectionString = "Data Source = D:\Programas VB 6.0\Programa negocio\Comprobante.mdb;" & "Persist Security Info = False"

cn.Open

Set rs = New ADODB.Recordset

rs.Open "DELETE Comprobante PRODUCTO FROM Comprobante", cn, adOpenForwardOnly, adLockReadOnly

Set cn = New ADODB.Connection

cn.Provider = "Microsoft.Jet.OLEDB.4.0"

cn.ConnectionString = "Data Source = " & app.path &  "\Comprobante.mdb;" & "Persist Security Info = False"  ' donde app.path te da la ruta del .exe y donde tambien por lo general consta la base de datos ..... o en su defecto si es en red... podrias usar un odbc.

cn.Open

Set rs = New ADODB.Recordset

rs.Open "DELETE Comprobante PRODUCTO FROM Comprobante", cn, adOpenForwardOnly, adLockReadOnly