cbm666大哥进来看一下

去表里查询一下就可以了啊

你 是说sql语句吗？还是什莫呀！
说清楚一点�

我用的是DATA控件

下例是学号 studentid 代入变量schdata 判断有无重复编号. 

dim schdata as string
schdata="12345678"
rs.Open "select * from school where studentid='" & schdata & "'" 
If Not rs.EOF Then 
 msgbox "此学号已存在" 
Else 
 msgbox "厂学号不存在" 
End If

dim schdata as string 
schdata="12345678" 

Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "studentid =" & Chr(39) & schdata & Chr(39)

If Not Data1.Recordset.NoMatch Then
 msgbox "此学号已存在" 
Else 
 msgbox "厂学号不存在" 
End If

谢谢，我试一下�