我用VB编程往数据库中添加数据，但是每次都是把原来的第一行数据给顶替了。代码你们看看

Dim sql As String
sql = "select * from Teacher"
'这句有问题，肯定是修改第一行数据，应该是
sql = "select * from Teacher Order BY ID Desc"
Set rs = exesql(sql)
’在这里必须添加下面的语句：
rs.AddNew '新增数据
rs.Fields("管理员姓名") = Trim(Text1.Text)
rs.Fields("工号") = Trim(Text2.Text)
rs.Fields("管理员密码") = Trim(Text19.Text)
rs.Fields("性别") = Trim(Text3.Text)
rs.Fields("联系方式") = Trim(Text4.Text)
rs.Fields("家庭住址") = Trim(Text5.Text)
rs.Update
rs.Close

另外，我认为以下语句没有任何意义，不如删除：
rs.Fields("管理员姓名") = ""
rs.Fields("工号") = ""
rs.Fields("管理员密码") = ""
rs.Fields("性别") = ""
rs.Fields("联系方式") = ""
rs.Fields("家庭住址") = ""

你这样添加是错的，你只是把Teacher表中的数据给