Søge mulighed i db

Den aller nemmeste måde er at lægge en datakontrol på en Form, og henvise dens DATABASENAME til en databasefil, og derefter henvise dens RECORDSOURCE til den tabel du skal bruge i databasen, hvis din kontrol nu hedder DATA1 ,så kan du derefter placere et tekstfelt i formen og så henvise dens DATASOURCE til DATA1 og dens DATAFIELD til det felt i tabellen som du skal bruge!

Eller du kan bruge den Hardcore måde:
Her er et eksempel fra VB egen bruger manual.

  Dim wrkJet As Workspace
  Dim dbsNorthwind As Database
  Dim dbsPubs As Database
  Dim dbsPubs2 As Database
  Dim dbsLoop As Database
  Dim prpLoop As Property

  ' Create Microsoft Jet Workspace object.
  Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)

  ' Open Database object from saved Microsoft Jet database
  ' for exclusive use.
  MsgBox "Opening Northwind..."
  Set dbsNorthwind = wrkJet.OpenDatabase("Northwind.mdb", _
      True)

  ' Open read-only Database object based on information in
  ' the connect string.
  MsgBox "Opening pubs..."
  Set dbsPubs = wrkJet.OpenDatabase("Publishers", _
      dbDriverNoPrompt, True, _
      "ODBC;DATABASE=pubs;UID=sa;PWD=;DSN=Publishers")

  ' Open read-only Database object by entering only the
  ' missing information in the ODBC Driver Manager dialog
  ' box.
  MsgBox "Opening second copy of pubs..."
  Set dbsPubs2 = wrkJet.OpenDatabase("Publishers", _
      dbDriverCompleteRequired, True, _
      "ODBC;DATABASE=pubs;DSN=Publishers;")

  ' Enumerate the Databases collection.
  For Each dbsLoop In wrkJet.Databases
      Debug.Print "Database properties for " & _
        dbsLoop.Name & ":"

      On Error Resume Next
      ' Enumerate the Properties collection of each Database
      ' object.
      For Each prpLoop In dbsLoop.Properties
        If prpLoop.Name = "Connection" Then
            ' Property actually returns a Connection object.
            Debug.Print "  Connection[.Name] = " & _
              dbsLoop.Connection.Name
        Else
            Debug.Print "  " & prpLoop.Name & " = " & _
              prpLoop
        End If
      Next prpLoop
      On Error GoTo 0

  Next dbsLoop

  dbsNorthwind.Close
  dbsPubs.Close
  dbsPubs2.Close
  wrkJet.Close

Undskyld det var den forkerte af dine spørgsmål, jeg lægger den lige over i det andet spørgsmål!

Men jeg svarer også på denne

Skal først åbne filen for at hente fra den:

dim SøgeKrit
open krit.txt for input as #1
Line Input #1, SøgeKrit
Close #1

'Nu skal databasens SQL tilpasses
DATA1.RECORDSOURCE = "Select * from TABELNAVN where FELTNAVN = " & SøgeKrit

OBS hvis Feltet er et tekstfelt skal du skrive:
DATA1.RECORDSOURCE = "Select * from TABELNAVN where FELTNAVN = '" & SøgeKrit & "'"

Husk også at opfriske DATAKontrollen.
DATA1.REFRESH

Jeg siger mange tak for hjælpen bkp! glad for at du vil hjælpe med disse lidt "begynder" problemer