又出现一重大问题,大虾救命啊

lds(27).Value & ""
TxtBloodgroup.Text = RsRecord.Fields(28).Value & ""
Txtshoes.Text = RsRecord.Fields(29).Value & ""
Txtworkjak.Text = RsRecord.Fields(30).Value & ""
TxtBeiZhu.Text = RsRecord.Fields(31).Value & ""
LblCount.Caption = RsRecord.RecordCount
End Sub
Private Sub FormTxtValue2()
TxtCode.Text = Empty
TxtName.Text = Empty
Txtrecord.Text = Empty
Txtpeopletype.Text = Empty
CmbSex.Text = Empty
TxtPlace.Text = Empty
DTPBrithday.Value = Empty //此句运行不过去,提示错误35787,Multiselect=false时,不能为Null
TxtEdu.Text = Empty
TxtSubject.Text = Empty
TxtIDCard.Text = Empty
CmbMarrageState.Text = Empty
TxtDarling.Text = Empty
TxtPolity.Text = Empty
TxtTel.Text = Empty
TxtPostCode.Text = Empty
TxtEmail.Text = Empty
TxtAddress.Text = Empty
DTPoildate.Value = Empty
DTPInCompanyDate.Value = Empty
TxtBranch.Text = Empty
DTPInBranchDate.Value = Empty
TxtTiltle.Text = Empty
DTPTitleDate.Value = Empty
TxtForID.Text = Empty
TxtForTitle.Text = Empty
TxtForUnit.Text = Empty
DTPForInToWork.Value = Empty
TxtWork.Text = Empty
TxtBloodgroup.Text = Empty
Txtshoes.Text = Empty
Txtworkjak.Text = Empty
TxtBeiZhu.Text = Empty
LblCount.Caption = RsRecord.RecordCount
End Sub
Private Sub TxtState()
TxtCode.Enabled = True
TxtName.Enabled = True
Txtrecord.Enabled = True
Txtpeopletype.Enabled = True
CmbSex.Enabled = True
TxtPlace.Enabled = True
DTPBrithday.Enabled = True
TxtEdu.Enabled = True
TxtSubject.Enabled = True
TxtIDCard.Enabled = True
CmbMarrageState.Enabled = True
TxtDarling.Enabled = True
TxtPolity.Enabled = True
TxtTel.Enabled = True
TxtPostCode.Enabled = True
TxtEmail.Enabled = True
TxtAddress.Enabled = True
DTPoildate.Enabled = True
DTPInCompanyDate.Enabled = True
TxtBranch.Enabled = True
DTPInBranchDate.Enabled = True
TxtTiltle.Enabled = True
DTPTitleDate.Enabled = True
TxtForID.Enabled = True
TxtForTitle.Enabled = True
TxtForUnit.Enabled = True
DTPForInToWork.Enabled = True
TxtWork.Enabled = True
TxtBloodgroup.Enabled = True
Txtshoes.Enabled = True
Txtworkjak.Enabled = True
TxtBeiZhu.Enabled = True
End Sub
Private Sub TxtState1()
TxtCode.Enabled = False
TxtName.Enabled = False
Txtrecord.Enabled = False
Txtpeopletype.Enabled = False
CmbSex.Enabled = False
TxtPlace.Enabled = False
DTPBrithday.Enabled = False
TxtEdu.Enabled = False
TxtSubject.Enabled = False
TxtIDCard.Enabled = False
CmbMarrageState.Enabled = False
TxtDarling.Enabled = False
TxtPolity.Enabled = False
TxtTel.Enabled = False
TxtPostCode.Enabled = False
TxtEmail.Enabled = False
TxtAddress.Enabled = False
DTPoildate.Enabled = False
DTPInCompanyDate.Enabled = False
TxtBranch.Enabled = False
DTPInBranchDate.Enabled = False
TxtTiltle.Enabled = False
DTPTitleDate.Enabled = False
TxtForID.Enabled = False
TxtForTitle.Enabled = False
TxtForUnit.Enabled = False
DTPForInToWork.Enabled = False
TxtWork.Enabled = False
TxtBloodgroup.Enabled = False
Txtshoes.Enabled = False
Txtworkjak.Enabled = False
TxtBeiZhu.Enabled = False
End Sub
Private Sub CmdState1()
CmdAdd.Visible = False
CmdEdit.Visible = False
CmdDel.Visible = False
CmdMove.Visible = False
CmdSave.Visible = True
CmdRetrun.Enabled = False
End Sub
Private Sub CmdState2()
CmdAdd.Visible = True
CmdEdit.Visible = True
CmdDel.Visible = True
CmdMove.Visible = True
CmdSave.Visible = False
CmdRetrun.Enabled = True
End Sub
Private Sub UpRsValue()
RsRecord.Fields(0).Value = TxtCode.Text
RsRecord.Fields(1).Value = TxtName.Text
RsRecord.Fields(2).Value = Txtrecord.Text
RsRecord.Fields(3).Value = Txtpeopletype.Text
RsRecord.Fields(4).Value = CmbSex.Text
RsRecord.Fields(5).Value = TxtPlace.Text
RsRecord.Fields(6).Value = DTPBrithday.Value
RsRecord.Fields(7).Value = TxtEdu.Text
RsRecord.Fields(8).Value = TxtSubject.Text
RsRecord.Fields(9).Value = TxtIDCard.Text
RsRecord.Fields(10).Value = CmbMarrageState.Text
RsRecord.Fields(11).Value = TxtDarling.Text
RsRecord.Fields(12).Value = DTPoildate.Value
RsRecord.Fields(13).Value = TxtPolity.Text
RsRecord.Fields(14).Value = TxtTel.Text
RsRecord.Fields(15).Value = TxtPostCode.Text
RsRecord.Fields(16).Value = TxtEmail.Text
RsRecord.Fields(17).Value = TxtAddress.Text
RsRecord.Fields(18).Value = DTPoildate.Value
RsRecord.Fields(19).Value = DTPInCompanyDate.Value
RsRecord.Fields(20).Value = TxtBranch.Text
RsRecord.Fields(21).Value = DTPInBranchDate.Value
RsRecord.Fields(22).Value = TxtTiltle.Text
RsRecord.Fields(23).Value = DTPTitleDate.Value
RsRecord.Fields(24).Value = TxtForID.Text
RsRecord.Fields(25).Value = TxtForTitle.Text
RsRecord.Fields(26).Value = TxtForUnit.Text
RsRecord.Fields(27).Value = DTPForInToWork.Value
RsRecord.Fields(28).Value = TxtWork.Text
RsRecord.Fields(29).Value = TxtBloodgroup.Text
RsRecord.Fields(30).Value = Txtshoes.Text
RsRecord.Fields(30).Value = Txtworkjak.Text
RsRecord.Fields(31).Value = TxtBeiZhu.Text
End Sub