Visual Basic - borrar registros

hola
necesito ayuda para borrar registros en visual
necesito una instrucción que borre todos los registros de una tabla desde el codigo.
gracias

Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Command1_Click()
Dim sql As String
Set rs = New ADODB.Recordset
rs.ActiveConnection = cn
sql = "DELETE * from TablaDestino"
rs.Open sql, cn
End Sub

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\Prueba.mdb"
cn.Open
End Sub