compile error: sub or function not defined.

Hi

I have the following code however I have a problem when I compile it runs but with clicking on the forward button it gives me sub or function not defined error for btnForward_Click() procedure . I couldn't figure it out, can anyone else does?

Many Thanks

VB Code:

Option Explicit
    ' create new activeX data objects for a database connection and a recordset
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    
 
Private Sub Form_Load()
    ' open a connection to the student model database
    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & App.Path & "\student_model.mdb;" & _
           "User Id=admin;" & _
           "Password=;"
    ' open a recordset
    Set rs = New ADODB.Recordset
    rs.CursorType = adOpenDynamic
    ' populate the recordset
    rs.Source = "Select * from users"
    rs.ActiveConnection = conn
    rs.Open
    showfields
 
End Sub
 
Private Sub btnPrevious_Click() ' procedure to navigate the student model database list of names
    'On Error GoTo Err_Init
    PlaySound App.Path & "\click.wav", 0&, 0&
    rs.MovePrevious
    showfields
    
    Exit Sub
 
'Err_Init:
    'HandleError "btnPrevious_Click", Err.Number, Err.Description
    
End Sub
 
Private Sub btnNext_Click() ' procedure to navigate the student model database list of names
    'On Error GoTo Err_Init
    PlaySound App.Path & "\click.wav", 0&, 0&
    rs.MoveNext
    showfields
 
    Exit Sub
 
'Err_Init:
    'HandleError "btnNext_Click", Err.Number, Err.Description
    
End Sub
 
Private Sub showfields() ' procedure to show current current record in a textbox
    'On Error GoTo Err_Init
    If rs.BOF Then rs.MoveFirst
    If rs.EOF Then rs.MoveLast
    txtStatus.Text = rs.Fields("userStatus")
    txtNames.Text = rs.Fields("userName")
 
    Exit Sub
 
'Err_Init:
    'HandleError "showfields", Err.Number, Err.Description
    
End Sub
 
Private Sub btnForward_Click() ' procedure to continue application and send information to log file
    'On Error GoTo Err_Init
    Dim currentStatus As Integer
    PlaySound App.Path & "\click.wav", 0&, 0&
    currentStatus = txtStatus.Text
    dataModule.userName = txtNames.Text
    SetLogDetails
    SetLog (MyTime & "; " & MyDate & "; " & "Application start" & "; " & dataModule.userName)
    ' direct user to cognitive style test if not already completed
    If currentStatus = 1 Then
        frmChooseAgent.Show
        frmLogin.Hide
        Else: frmTest1.Show
        frmLogin.Hide
        End If
    ' close recordset and connection to database
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
    
    Exit Sub
 
'Err_Init:
    'HandleError "btnForward_Click", Err.Number, Err.Description
    
End Sub