สวัสดีครับ
ผมเป็นมือใหม่ครับ ติดปัญหาเวลาเปิด Recordset แบบมีเงื่อนไขใน sql Staement เวลา Compile ก็ไม่พบปัญหาอะไร แต่พอเรียกใช้ Sub ก็มี Error ขึ้นว่า " ไม่มีพารามิเตอร์ที่ต้องการอย่างน้อยหนึ่งตัว" Code ตามนี้ครับ


Public Sub AdjustInventory(ProductName As String, QtyChange As Single, AdjustType As String)
    Dim ProdDate As String
    Dim rs3 As ADODB.Recordset
    Set rs3 = New ADODB.Recordset
    rs3.ActiveConnection = CurrentProject.Connection
    rs3.Source = "SELECT * from tblInvenStatus where [tblInvenStatus].[ProductID] = " & ProductName
    rs3.CursorType = adOpenDynamic
    rs3.LockType = adLockOptimistic
    rs3.Open

ผมเดาว่าน่าจะมีปัญหาตรง SQL แต่พยายามลองหลายๆแบบแล้วก็เปิด recordset ไม่ได้เลย รบกวนช่วยแนะนำด้วยครับ
ขอบคุณล่วงหน้าครับ