Database

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