Διόρθωση ρουτίνας

[alex]

Καλησπέρα και Χρόνια Πολλά ευτυχισμένο το νέο έτος
Καλησπέρα σε όλη την παρέα του forum.
Eχω μια ρουτίνα sShowSurveyDays
Την ρουτίνα την καλώ από κάποια φόρμα .θέλω να μου ανοίγει απο την ρουτίνα ο ιnternet explorer.Τι πρέπει να συμπληρώσω για να ανοίξει .
Παραθέτω τον κώδικα.
Στο σημείο που κοκκινίζει χρειάζεται συμπλήρωμα.

Public Sub sShowSurveyDays()
'Ρουτίνα που εμφανίζει το σύστημα καταγραφής στοιχείων για το νηπιαγωγείο
Dim CurrentSysDate As Date, CurrentSysMonth, CurrentSysDay As Integer
Dim i As Integer, TmpName As String
CurrentSysDate = Date
CurrentSysMonth = Month(CurrentSysDate)
CurrentSysDay = Day(CurrentSysDate)
i = 0
Dim RcdNames As New ADODB.Recordset
    RcdNames.Open "Select * From " & CnstNameTable & " Where intDay=" & CurrentSysDay _
    & " and intMonth=" & CurrentSysMonth, CurrentProject.Connection, adOpenDynamic
    If Not RcdNames.EOF And Not RcdNames.BOF Then
        RcdNames.MoveFirst
            Do While Not RcdNames.EOF
            i = i + 1
                If i > 1 Then
                    TmpName = TmpName & " , " & RcdNames.Fields("SurveyDay")
                Else
                    TmpName = RcdNames.Fields("SurveyDay")
                End If
                RcdNames.MoveNext
            Loop
            Dim Response As Integer
            If i > 1 Then
               
            Else
                Response = MsgBox("ΚΑΛΗΜΕΡΑ ΣΗΜΕΡΑ ΠΡΕΠΕΙ ΝΑ ΕΝΗΜΕΡΩΣΕΤΕ ΤΟ  : " & TmpName _
                & vbNewLine & "ΣΥΝΔΕΘΕΙΤΕ ΣΤΟ ΙΝΤΕΡΝΕΤ. ", vbYesNo + vbDefaultButton1, " ΕΝΗΜΕΡΩΣΗ ΤΟΥSURVEY ")
            End If
            If Response = vbYes Then
                DoCmd.OpenForm ""
                
            End If
    End If
    RcdNames.Close
End Sub

Σημειώνω ότι δεν θέλω να ανοίγει μέσα απο φόρμα ο internet explorer διότι το έκανα και δεν με αφήνει να μπώ στο Σύστημα καταγραφής Α΄θμιας & Β΄θμιας Εκπσης.Μου ανοίγει την σελίδα αλλά όταν πάω να συμπλήρώσω τους κωδικούς με πετάει έξω.
Εάν μπορεί να δουλέψει απο φόρμα δεκτόν.Αν δεν μπορεί τι πρέπει να συμπληρώσω για να ανοίξει τουλάχιστον ο Internet Explorer.

Φιλικά
Αλέξανδρος