Indentare il codice significa scriverlo in un certo modo (vedi dopo) in modo da avere presenti i blocchi delle varie parti dello stesso. Il tuo codice (qualunque cosa faccia ...) dovrebbe essere scritto cosi'

codice:
Private Sub Form_Load()
    Dim mese As Integer, anno As Integer
    Dim db As Database
    Dim rs As Recordset
    Dim rs1 As Recordset
    Dim rs3 As Recordset
    Dim WS As Workspace
    Dim Max As Long
    Dim dbfile As String
    Dim pwdstring As String
    Dim alert As String
    Dim hd As String
    Dim nserial As String

    Set WS = DBEngine.Workspaces(0)
    dbfile = (App.Path & "\Data\date.mdb")
    pwdstring = "swordfish"
    Set db = DBEngine.OpenDatabase(dbfile, False, False, ";PWD=" & pwdstring)
    Set rs3 = db.OpenRecordset("serialnumber", dbOpenTable)

    rs.MoveFirst
    For l = 1 To rs3.RecordCount
        If VolumeSerial("C") = rs3("seriali") Or VolumeSerial("d") = rs3("seriali") Or VolumeSerial("e") = rs3("seriali") Or VolumeSerial("f") = rs3("seriali") Or VolumeSerial("g") = rs3("seriali") Or VolumeSerial("h") = rs3("seriali") Or VolumeSerial("i") = rs3("seriali") Or VolumeSerial("l") = rs3("seriali") Or VolumeSerial("m") = rs3("seriali") Or VolumeSerial("n") = rs3("seriali") Or VolumeSerial("o") = rs3("seriali") Then
            Label43.Caption = "Visualizza Seriali Registrati "
            Data.Caption = Format$(Date, "dddd, mmmm dd, yyyy")
            Timer1.Enabled = True
            Label15.Caption = "Benvenuto "
            Label34.Enabled = False

            pr.AddItem "FR"
            pr.AddItem "RM"
            pr.AddItem "LT"

            KeySection = "Backup"
            KeyKey = "data"
            loadini
            ubackup.Text = KeyValue

            If Format(Day(Date) - 15, "0#") & "/" & Format(Month(Date), "0#") & "/" & Year(Date) = ubackup.Text Then alert = MsgBox(" Sono passati 15 giorni dall'ultimo backup", vbInformation, "Back-UP")
            If Day(Date) & "/" & Format(Month(Date) - 1, "0#") & "/" & Year(Date) = ubackup.Text Then alert = MsgBox(" Sono passati 30 giorni dall'ultimo backup", vbInformation, "Back-UP")
            If Day(Date) & "/" & Format(Month(Date) - 2, "0#") & "/" & Year(Date) = ubackup.Text Then alert = MsgBox(" Sono passati 60 giorni dall'ultimo backup", vbInformation, "Back-UP")

            For eta = 1 To 99
                Combo4.AddItem eta
            Next

            nome.Locked = True
            Combo4.Locked = True
            uomo.Enabled = False
            donna.Enabled = False
            indir.Locked = True
            n.Locked = True
            citta.Locked = True
            pr.Locked = True
            telf.Locked = True
            telc.Locked = True
            email.Locked = True
            assicurazione.Enabled = False
            mensile.Locked = True
            gennaio.Enabled = False
            gennaio1.Locked = True
            febbraio.Enabled = False
            febbraio1.Locked = True
            marzo.Enabled = False
            marzo1.Locked = True
            aprile.Enabled = False
            aprile1.Locked = True
            maggio.Enabled = False
            maggio1.Locked = True
            giugno.Enabled = False
            giugno1.Locked = True
            luglio.Enabled = False
            luglio1.Locked = True
            agosto.Enabled = False
            agosto1.Locked = True
            settembre.Enabled = False
            settembre1.Locked = True
            ottobre.Enabled = False
            ottobre1.Locked = True
            novembre.Enabled = False
            novembre1.Locked = True
            dicembre.Enabled = False
            dicembre1.Locked = True
            trimestrale.Enabled = False
            trimestrale1.Locked = True
            semestrale.Enabled = False
            semestrale1.Locked = True
            annuale.Enabled = False
            annuale1.Locked = True

            Set WS = DBEngine.Workspaces(0)
            dbfile = (App.Path & "\Data\date.mdb")
            pwdstring = "swordfish"
            Set db = DBEngine.OpenDatabase(dbfile, False, False, ";PWD=" & pwdstring)
            Set rs = db.OpenRecordset("user", dbOpenTable)
            Set rs1 = db.OpenRecordset("pagamenti", dbOpenTable)

            Max = rs.RecordCount
            Max = rs1.RecordCount

            If rs.RecordCount = 0 Then
                Exit Sub
            Else
                rs.MoveFirst

                ListView1.ListItems.Clear
                Text1.Text = rs.RecordCount

                For i = 1 To Max
                    ListView1.ListItems.Add , , rs!nome, , 3

                    rs.movenext
                    rs1.movenext
                Next i
            End If

            Timer2.Enabled = True
            Timer2.Interval = 2000

        Else
            MsgBox "Seriale Registrato: -195652520" & vbCrLf & "Seriale non conforme sul PC: " & VolumeSerial("C"), vbCritical, "Impossibile avviare il software"
            End
        End If
    '?????
End Sub
Alla fine, dove ho messo i ????? manca una Next ...

Naturalmente, questo dal punto di vista sintattico ... da quello logico dipende da cosa deve fare il tuo codice ... (che e' abbastanza confuso ... basta vedere le righe

Max = rs.RecordCount
Max = rs1.RecordCount

per cui la prima risulta del tutto inutile ...)