アクセスランタイムエラー3464データ型が条件式に一致しません

Question

このコードで何が問題になっていますか？なぜこのエラーが出てくるのか分かりません。

Sub renttt() 
Dim rent_list As Recordset 
Dim query As String 

query = "SELECT * FROM (Rent INNER JOIN Movies ON Rent.Movie_ID = Movies.ID) INNER JOIN Customers ON Rent.Customer_ID = Customers.ID WHERE Rent.Movie_ID = '" & txtbxmovieID.Value & "' AND Rent.Date_Returned is Null;" 
Set rent_list = CurrentDb.OpenRecordset(query) 

If rent_list.RecordCount = 1 Then 
     rent_List.MoveFirst 
     txtbxname.Value = (rent_list![CusName]) 
     txtbxsurname.Value = (rent_list![Surname]) 
     txtbxcardID.Value = (rent_list![Id_Card_number]) 
     txtbxaddress.Value = (rent_list![Address]) 
     txtbxrented.Value = (rent_list![Date_Rent]) 
End If 


End Sub 

Answer 1

MovieIdは数字ではありませんか？その場合、引用符はありません：

WHERE Rent.Movie_ID = " & txtbxmovieID.Value & " AND ...