前辈帮我看一下这段话我是不是写错了

DataEnvir.DataConnect.Execute ("if exists(select 1 from student_info where student_code='" & Trim(Text1.Text) & "' )select 1 as r else select 0 as r")
 If CInt(r) <= 0 Then