编辑窗体代码

Dim db As Database
Dim rs As Recordset
Dim wz As Integer

Private Sub Command1_Click()
 Unload Me
End Sub

Private Sub delButton_Click()
 s = MsgBox("确认删除吗？", vbOKCancel + vbQuestion, "灿星学生管理系统")
 If s = vbOK Then
  rs.AbsolutePosition = wz
  rs.Delete   '删除记录
  MsgBox "该班级删除成功！", vbOKOnly + vbInformation, "灿星学生管理系统"
  List1.RemoveItem (wz)
  Text1.Text = ""
 End If

End Sub

Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\xs.mdb")
Set rs = db.OpenRecordset(" select * from bj ")
rs.MoveFirst
rs.MoveLast
rs.MoveFirst
For i = 0 To rs.RecordCount - 1
  List1.AddItem rs.Fields("bjn")
  rs.MoveNext
Next