提示表达式数据类型不匹配，不知道哪里错了

Private Sub Form_Load()
Dim rst As Object
Dim strSQL As String
Dim currentID As String
currentID = Form_frm_biq_list.Form.ID
strSQL = "select * from tb_biq_data where ID ='" & currentID & "'"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)                               ------提示表达式数据类型不匹配
rst.MoveFirst
Me.rq = rst!rq
Me.bc = rst!bc
Me.xhqy = rst!xhqy
Me.ljlx = rst!ljlx
Me.ljh = rst!ljh
Me.zsh = rst!zsh
Me.defectloc = rst!defectloc
Me.defectownerloc = rst!defectownerloc
Me.qxlb = rst!qxlb
Me.defectnum = rst!defectnum
Me.typefmn = rst!typefmn
Me.typenw = rst!typenw
Me.symptom = rst!symptom
Me.qxms = rst!qxms
Me.fggs = rst!fggs
Me.cfcs = rst!cfcs
Me.owner = rst!owner
Me.zrbm = rst!zrbm
Me.finder = rst!finder


rst.Close
Set rst = Nothing
End Sub