Find ord eller del heraf i tabel vha. DoCmd.FindRecord + FindNext

Tabellen ”tblTS_Links” består af 3 felter: TS_ID, TS_Indhold, TS_Links (pt. med 79 links).

Hvordan får jeg indholdet i DO Until Rs.EOF til at virke?

Håbet er sluttelig at få vist de steder hvor ”TS_Indhold” = ”Indhold” / dele heraf i ”Fundet(i)”
---

Hvordan rammer man feltet ”TS_Indhold” i ”tblTS_Links” som søgefelt?
---

Er det muligt at have en variabel i en DIM eks.:  ”Dim Fundet(Rs.RecordCount) As String” ? -
er placeret efter  ”Rs.Open "tblTS_Links", Cn, adOpenKeyset, adLockOptimistic”.

Her er faktisk 3 spørgsmål derfor pointantallet.

Private Sub cmdSøg_Click()

On Error GoTo Err_cmdSøg_Click
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Indhold,  Fundet(200) As String
Dim i As Integer

Set Cn = CurrentProject.Connection
Set Rs = New ADODB.Recordset

  Rs.Open "tblTS_Links", Cn, adOpenKeyset, adLockOptimistic
 
' **** Søgning af data i databasens felter **** sikkerhed for at der er plads ****
  If Rs.RecordCount > 200 Then
    MsgBox "Der kan ikke gemmes mere end 200 records i søgningen"
    GoTo Err_Fortsæt     ' = Exit Sub
  End If
 
  Indhold = InputBox("Indtast søgeord: " & vbNewLine & "mulige jokertegn = * ?" _
            , "Delordssøgning", "", 100, 3800)
   
  Debug.Print "Antal records " & Rs.RecordCount
  Debug.Print "Søgningens indhold = " & Indhold
   
' Find & save data from FindRecord
  i = 1
  Rs.MoveFirst
  Do Until Rs.EOF
'    DoCmd.FindRecord "Fejlmelding*", acAnywhere, False, acDown, False, acCurrent, False
    DoCmd.FindRecord Indhold, acAnywhere, False, , True
    Fundet(i) = Rs!TS_ID
    Debug.Print "Tæller = " & i & " " & Fundet(i)
    i = i + 1
    DoCmd.FindNext
    Fundet(i) = Rs!TS_ID
    Debug.Print "Tæller = " & i & " " & Fundet(i)
    i = i + 1
  Loop
 
Err_Fortsæt:
  Rs.Close
  Cn.Close
  Set Rs = Nothing
  Set Cn = Nothing
  Exit Sub

Err_cmdSøg_Click:
  MsgBox Err.Number & vbNewLine & Err.Description, vbCritical, "Fejl!"
  GoTo Err_Fortsæt
 
End Sub