Hi everybody,

I Have a little problem that I hope someone can see, this section of code gives the following error msg:

Run-time error '-2147217904 (80040e10)': No Value given to one or more required parameters.

Private Sub Combo1_Click()

Res.Open "SELECT * FROM Computer WHERE ComputerName=" & Combo1.Text, Con, adOpenDynamic

Do Until Res.EOF
Text1.Text = Text1.Text & "" & Combo1.Text & " is in " & Res("RoomName")
Res.MoveNext
Loop

Res.Close

End Sub

Anyone got any ideas where the problem is in the code ?

Thanks