空值如何处理
SQLStmt = "INSERT INTO zdrun (numbername,hm,score1,shijian) VALUES ('" + Trim(Text8) + "','" + Str(Trim(Text9)) + "'," & 1 & ",'" + Trim(Label37) + "')"SQLExt (SQLStmt)
DBDisconnect



Set rs = SQLQuery(SQLStmt)
Label17 = Text8 & "比赛得分:" & rs.Fields(0) + rs.Fields(1) + rs.Fields(2)
Label17.BackColor = vbBlack
Label17.Visible = False
Timer2.Enabled = True
Label4 = Label4 + 1
Text9 = ""
Text1.SetFocus
Text7 = ""
Exit Sub