调试了两天了 
If Label12.Caption = Label28.Caption Then
sql = "update lsxz set [分数]=2 where [序号]=" & CInt(Label6)
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\sjk.mdb;Persist Security Info=False"
cn.Open
cn.Execute sql
cn.Close
End If  各位高手们就就我啊下星期就得交了