No value given for one or more required parameters. in Vb6.0

Question

Private Sub cmb_dept_name_LostFocus()
    Call CloseAllConnections

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data.mdb;Persist Security Info=False"

    Dim q1 As String
    q1 = "Select * from master where dept=" &   cmb_dept_name.Text
    
    rs1.Open q1, cn, adOpenDynamic, adLockOptimistic
    Do While rs1.EOF
        cmb_deadstock_no.AddItem rs1.Fields("Dead_Stock_No")
        rs1.MoveNext
    Loop
        
    Call CloseAllConnections
End Sub

Answer 1

Your value seems to be a name, thus text, so try with quotes:

q1 = "Select * from master where dept = '" & cmb_dept_name.Text & "'"