I am not against starting from scratch, but I would strongly recommend that you do not delete anything.
If you feel you want to remove something, then rename it ie Oldname_xx (or something you can easily identify).
Identify a small useful project in order to learn some vba. Look at a few vba tutorials.
http://www.functionx.com/vbaccess2003/index.htm
One thing that might be useful is to write a small routine that identifies each module when it is executed.
Even if all it does is write the name of the procedure to the immediate window.
Another is a Logger routine. Such a routine allows you to identify a Log file, then call the Logger routine to write a time stamped record to the log file whenever you need to do so.
A utility (free) that I highly recommend is MZTools. It can help with error handling, what modules call what procedures... IN the code snippets below, the formatted comments at the start of the procedure is done via MZTools.
see http://www.mztools.com/v3/mztools3.aspx
If, as you say you know what the data base is and why it is there, then maybe you should work to build a data model.
Here is a small logger routine I wrote a while back
Code:
'---------------------------------------------------------------------------------------
' Procedure : Logger
' Author : user
' Date : 1/21/2009
' Purpose : To write records to a LOG file using FileSystemObject.
'
'Parameters
' sLogName As String -- full path and file name of the log file
' sLogRec As String -- record to be written to the log
'
' NOTE: Each log record has a timestamp appended
'
' Special Note/restriction:
'***** Must set a reference to MICROSOFT SCRIPTING RUNTIME ***
'---------------------------------------------------------------------------------------
'
Sub Logger(sLogName As String, sLogRec As String)
Dim tslog As TextStream
Dim fileLog As file
Dim i As Integer
Dim fso As FileSystemObject
On Error GoTo Logger_Error
Set fso = New FileSystemObject
Set fileLog = fso.GetFile(sLogName) '"I:\wordtest\output\Results.log")
Set tslog = fileLog.OpenAsTextStream(ForAppending)
tslog.WriteLine Now() & vbTab & sLogRec
tslog.Close
On Error GoTo 0
Exit Sub
Logger_Error:
MsgBox "Error " & Err.number & " (" & Err.Description & ") in procedure Logger"
End Sub
And here is a small routine I used to test that the Logger works.
Code:
'---------------------------------------------------------------------------------------
' Procedure : testLogger
' Author : Jack
' Created : 4/18/2011
' Purpose : Sample procedure to use the Logger function
' Log file must exist before using Logger
'---------------------------------------------------------------------------------------
' Last Modified:
'
' Inputs: N/A
' Dependency: N/A
'------------------------------------------------------------------------------
'
Sub testLogger()
Dim mlog As String
Dim res As String
On Error GoTo testLogger_Error
res = "*Pass "
mlog = "I:/wordtest/output/result_apr2011.txt"
Dim i As Integer
For i = 1 To 20
Call Logger(mlog, res & i)
Next i
On Error GoTo 0
Exit Sub
testLogger_Error:
MsgBox "Error " & Err.number & " (" & Err.Description & ") in procedure testLogger "
End Sub