Change the function to look like this....
function getNewMemberNumber()
dim my_Conn2
'## Forum_SQL
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE " & strDBNTSQLName & " = '" & strDBNTUserName & "'"
set rsGetMemberID = my_Conn.Execute(strSql)
if rsGetMemberID.EOF or rsGetMemberID.BOF then
getNewMemberNumber = -1
exit function
end if
getNewMemberNumber = rsGetMemberID("MEMBER_ID")
end function