前辈们帮我看看我这句话是不是写错，急！！！！

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