Ok, well i'm trying to get the "delete all entries" part working first. For some reason, i can't get this to work and i can't figure it out. Any help is greatly appreciated.
Private Sub Command4_Click()
Dim Msg, Style, Title, Response, MyString
Msg = "Do you want to reset the program?" '...