problem the loadin data

do not load the data in form
I press the enter key and call the function but this function call and do not load data,after that stuck the program
I,m using access data base
hear is my code

Private Function loaddataM()
    Rs.Open "SELECT * FROM Member_Type WHERE MTypeCode=" & Val(txtmtypeId.Text) & "", conString, adOpenDynamic, adLockOptimistic
    
    If Rs.BOF Then
    
        txtmtypeId.Text = Val(Rs.Fields("MTypeCode"))
        txtMdiscription.Text = Trim(Rs.Fields("Discription"))
        
    End If
    
   Rs.Close
   
End Function



Private Sub txtmtypeId_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then
        Call loaddataM
    End If
    
End Sub