You basically need to change your SQLStr. Use the lines below instead of your example.
Dim ConnStr As String = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " + System.Windows.Forms.Application.StartupPath + "\Clip Counter.mdb"
Dim DT As New DataTable()
    Dim SQLStr As String = "DELETE * FROM [Clips_Data]"
    Dim DA As New OleDb.OleDbDataAdapter(SQLStr, ConnStr)
    Dim CommandBuilder As New OleDb.OleDbCommandBuilder(DA)
    DA.Fill(DT)
    DA.Update(DT)
    DA.Dispose()
                
 Andrew Croft
                
 February 2004