关于VB中禁止DATAGRID添加数据表中已有的项

我用DATAGRID显示一个数据表的数据，比如学生信息，包括学号，姓名等，我希望学号是唯一的，如何在我添加时输入相同学号就有错误提示，请大大们给出具体实现方法 --------------------编程问答-------------------- 思路：
首先库表里要学号设为主字段，其次在光标离开学号列时用ado+sql语句判断学号是否重复 --------------------编程问答-------------------- 那具体是怎么用ADO+SQL判断呢？麻烦大家指教，急 --------------------编程问答-------------------- '引用microsoft activex data object2.5 library
Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As Integer)
    Dim cn  As New ADODB.Connection
    Dim sql  As String
    Dim i  As Integer
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tyq.mdb;Persist Security Info=False;"
    sql = "select * from 学生信息 where 学号=" & DataGrid1.Columns("学号").Value
    cn.Execute sql, i
    if i>0 then 
       msgbox "已经有这个学号了,请重新录入学号"
       DataGrid1.Text=""
       DataGrid1.SetFocus
    end if
End Sub
--------------------编程问答-------------------- 插入之前先查询.... --------------------编程问答--------------------

引用 1 楼 asftrhgjhkjlkttttttt 的回复:

思路：
首先库表里要学号设为主字段，其次在光标离开学号列时用ado+sql语句判断学号是否重复

引用 4 楼 qingye2008 的回复:

思路：
插入之前先查询....

LS正解.

补充：VB ,  控件