DAO 问题

Private Sub Form_Load()
Dim rst As DAO.Recordset
    Dim strSQL As String
    Dim strID As String
    strID = Forms!用户管理!users子窗体.Form!ID
    
    strSQL = "select * from users where ID='" & strID & "'"
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    rst.MoveFirst
    Me.ID = rst!ID
    Me.用户名 = rst!用户名
    rst.Close
    Set rst = Nothing

End Sub

老师好！

    以上代码当  ID为自动编号时提示类型不批配，请大家帮忙，谢谢。