SQL VB查询求助

你以为

希望达到的效果：
判断入库表中的编号字段与编号.Caption相同时，提取入库表，不重复的生产批号字段到批号Combo中
调试总是报错：语法错误，新手刚学习，哪位大哥大姐帮下，谢谢
If rs13.State <> adStateClosed Then rs13.Close
rs13.Open "select distinct 生产批号 from 入库 where 编号='" & 编号.Caption & "', conn, 1, 3"
For I = 1 To rs13.RecordCount
批号.AddItem Trim(rs13(0) & "")
rs13.MoveNext
Next
End If

opiona

https://club.excelhome.net/thread-859194-1-1.html

rendiule01

If rs13.State <> adStateClosed Then rs13.Close
rs13.Open "SELECT DISTINCT 生产批号 FROM 入库 WHERE 编号='" & 编号.Caption & "'", conn, 1, 3
If Not rs13.EOF Then
    rs13.MoveFirst
    Do Until rs13.EOF
        批号.AddItem Trim(rs13.Fields(0).Value & "")
        rs13.MoveNext
    Loop
End If

ZXB0312

学习了