vb中sql语句！ - VB / 数据库(包含打印，安装，报表)

Set cn = New ADODB.Connection
  cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\member.mdb"
  Set rs = New ADODB.Recordset
  rs.Open "select * from attendance1 where 学号 like '" & Text9.Text & "' and 到寝日期 like '" & DTPicker1.Value & "'", cn, adOpenKeyset, adLockOptimistic
  If rs.RecordCount > 0 Then
  MsgBox "此同学以到！", vbInformation, "提示"
  Else
  cn.execute("insert into attendance1(学号,到寝日期，到寝时间）values ('" & Text9.Text & "',#" & Format(Now(), "YYYY-MM-DD") & "#,'" & Format(Now(), "hh点mm分") & "')"
  MsgBox "添加完毕", vbInformation, "提示"
access数据库 表 attendance1 字段 学号 到寝日期(时间/日期类型) 到寝时间(文本类型)

添加一次后，再添加就会弹出此同学已到！数据库中无重复数据！

但是把换成sql数据库 表attendance1 字段 学号 到寝日期(datetime类型) 到寝时间(文本类型)
  cn.Open "provider=sqloledb;data source=127.0.0.1;initial catalog=student;user id=sa;password=sa;"
就一直弹出添加完毕....没有此同学以到...数据库中 有重复数据！
这是为什么？要怎么改才能没有重复的数据呢？

---

看半天看不懂写的是什么

---

...我再改改

---

我也有些晕。。。。

---

T