this code gives error that no value given to 1 or more required parameters
and shows ps = nothing
in line set ps =objconn.execute(p)

i am using a combo box to show a list of products and when a product is selected its related article num is shown in the text box



Private Sub Command1_Click()
Dim objConn As ADODB.Connection
Set objConn = New ADODB.Connection
objConn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data source=c:\database\DB.mdb;Persist Security Info=False")
Dim p As String
p = " select article from product where pname =" & Combo1.Text & " "
Set ps = objConn.Execute(p)
Text1.Text = p
Form11.Text1.Text = Combo1.Text
Form11.Show
End Sub