Hej!
Jag har problem med sök-knappen i min vb-appöilation (bifogar kod):
OBS! databasen innehåller poster

Får felmeddelandet "Run_time error '3021'. Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats"

Vore väldigt tacksam för svar!

Hälsningar Therese

MODUL
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Sub ConnectDB()
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\" & "Adressbok.mdb;uid=Admin"
End Sub


KOD Sök-knapp
On Error GoTo Error_Handler ' vid fel gå till Err_Handler
Dim urval As String
Dim strang As String, fraga As String
urval = UCase(txtSok.Text) ' alla tecken får stora bokstäver

' OBS! Namn är sparat som text i databasen
fraga = "Select Namn, Adress, Telenr from person where Namn='" & urval & "'"

ConnectDB

Set rs = conn.Execute(fraga)

txtNamn.Text = rs("Namn")
txtAdress.Text = rs("Adress")
txtTelefon.Text = rs("Telenr")
index = rs("Id")

Error_Handler:
Call VidFel ' anropar subproceduren VidFel

rs("id") måste vara med i ditt urval.

/MiZ

Blir ingen skillnad om jag lägger till "Select * from"

Kom på felet själv

urval = UCase(txtSok.Text)

FEL
fraga = "Select Namn, Adress, Telenr from person where Namn='" & urval & "'"

RÄTT
fraga = "Select * from person where UCase(Namn) Like " & "'" & urval & "'"