|
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
|