ive made a program that links into an access 2000db.
ive written the code for the find button as
Private Sub cmdFind_Click() Dim x As String x = InputBox("Input the first few characters of the Company Name ", "Find on Name") Data1.Recordset.FindFirst "Name like '%" & x & "%'" cmdFind_ok: Exit Sub cmdFind_Error: Dim y As String y = "Error " & Err.Number & ": " & Error(Err.Number) MsgBox y, 48, "Find On Company Name" Resume cmdFind_ok End Sub
And i keep getting Runtime Error ''
Operation is not supported for this type of object.
And when i debug
Data1.Recordset.FindFirst "Name like '%" & x & "%'"
Ive tried using ADO but then i can only display the results in a grid and i use sql then. Why wont this code work? Is it wrong or am i missing a refrence of component?