Function issues

I'm developping an interface for my database (MS Access) using VB 6.0. I have created a form that I've called StudentCenter. the data on the form are linked to the Student table's in my DB. the  data control used for the connection is "adoStudentLN". I've also implemented another data control named "adoUniversity" that links the form to the University table in my DB.
My problem is the following;
I've implemented the function just below to check if the student that I'm about to insert in my DB is attending a University that is already saved or not in my DB. However, everytime I run the test it seems that the test is falling, because for each entry even though the university is not saved in my DB yet, I get the "existence" comfirmation message everytime.

Private Function UnivExist() As Boolean
Dim strSQL As String
    'create query string using current univ_name value on studentcenter form as search condition
    strSQL = "SELECT * FROM University WHERE univ_name='" & frmStudentCenter.adoUniversity.Recordset![univ_name] & "'"
    'set SQL string as current record for the University's active data control
    frmStudentCenter.adoUniversity.RecordSource = strSQL
    'refresh the data control
    frmStudentCenter.adoUniversity.Refresh
    'test for the university existence
    If frmStudentCenter.adoUniversity.Recordset.RecordCount = 0 Then
        'university does not exist
        UnivExist = False
    Else
        UnivExist = True
    End If
End Function

I hope the given information is enough to solve the issues. If not let me know
thanks for your help
sincerely yours