Borrar primero los registros de la tabla y luego insertar datos

Con este código puedo insertar los datos en la tabla correctamente pero
primero quiero borrar todos los registros de la tabla y no sé como hacerlo.



Gracias,









Dim Conexion As OleDbConnection

Dim Ds As DataSet

Dim TablaAuxiliar As DataTable

Dim Adaptador As OleDbDataAdapter

Dim Cmb As OleDbCommandBuilder

Dim CmbBorrar As OleDbCommandBuilder



'Conectar a la base de datos

Try

Conexion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=" & "D:\Prueba\Estudios.mdb")

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try



Ds = New DataSet



'Primero borrar todos los datos de una tabla

Adaptador = New OleDbDataAdapter("DELETE * FROM Auxiliar", Conexion)

Adaptador = New OleDbDataAdapter("SELECT * FROM Auxiliar", Conexion)

Cmb = New OleDbCommandBuilder(Adaptador) 'Esta línea crea los comandos
insert, update y delete en nuestro dataadapter



Try

Adaptador.Fill(Ds, "Auxiliar")

Catch ex As Exception

MessageBox.Show("Error en Fill:" & vbCrLf & ex.Message)

End Try



TablaAuxiliar = Ds.Tables("Auxiliar")

Adaptador.Update(Ds, "Auxiliar")



Do

linea = sr.ReadLine 'Se lee linea a linea el fichero

Loop Until linea Is Nothing Or linea = "[ITEMS]"



If linea = "[ITEMS]" Then

linea = sr.ReadLine

Do

'Grabar cada linea en una tabla auxiliar

Grabar_Linea(linea, TablaAuxiliar)

'Terminando de grabar la linea

Adaptador.Update(Ds, "Auxiliar")

TablaAuxiliar.AcceptChanges()

'Leer la siguiente línea

linea = sr.ReadLine

Loop Until linea Is Nothing



End If

sr.Close() 'Cerrar el fichero

'Cerrar la connexion



If Conexion.State = ConnectionState.Open Then

Conexion.Close()

End If