Dim con As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand

        Try
            con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='VeritabanıAdınız.accdb'; Persist Security Info=False;"
            con.Open()
            cmd.Connection = con

            cmd.CommandText = "Delete from Tablo_Adınız"
            cmd.ExecuteNonQuery()

            If MessageBox.Show("Kayıtlar Silinecek", "Silme", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = DialogResult.No Then

                MsgBox("İptal edildi")

                Exit Sub

            End If
        Catch ex As Exception

        Finally
            con.Close()
        End Try