>BAK - Select sætning

Måske skal du have ' ' omkring dit ID således

objCommand.CommandText = "SELECT * FROM " & DBTable & " " & _
      "WHERE ID = '" & CStr(ID) & "';"

Måske er dit ID ikke af typen String, som du konverer den til.

håber du kan se ' efter ID = og lige før ;"

Hejsa Flemming :-)
Det er et godt forsøg, for det kan nemlig drille en del.
En anden ting der kan drille er hvis man har et mellemrum i sit tabelnavn, så et par klammer kan måske også hjælpe.

objCommand.CommandText = "SELECT * FROM [" & DBTable & "] " & _
      "WHERE ID = '" & CStr(ID) & "';"

Mellemrum i tabelnavne....... hvad er det da for en navngivning bak *GG*

Hvis det ikke er en string skal udtrykket så ikke se anderledes ud?

Tænker på linien '" & CInt(ID) & "' ????

Dette er min SQL som "afsendes"

SELECT Værdi FROM Defaults WHERE Id = '66';

Id i min table Defaults er nu et tekst felt

Er det ikke i min Execute statement der er noget galt - den skal ikke ændres fordi jeg nu henter og ikke skriver i tabellen???
Jeg har kopieret direkte fra det du sendte i går Bak - men det var jo alle 3 sætninger hvor man arbejder i tabellen - nu vil jeg bare hente fra tabellen...

Jeg har ingen anelse selv.... ????????????????

Hmmmmmmmmmmmmmm.... har i været længe til frokost??? ;O)

Nå ja, men altså jeg var åbenbart helt på herrens mark - men har nu løst det ved (selvfølelig?) at sætte et recordsæt - tænkte nok at det var fordi den jeg havde kopieret fra var til at skrive i tabellen med - nå men hvor om alt er så er her koden som virker:

  Dim objCommand As ADODB.Command
  Dim rsData As ADODB.Recordset
  Dim lRecordsAffected As Long
  Dim szConnect As String
  Dim DBPath As String, DBName As String, DBTable As String
 
  DBPath = GetName("strPathDB")
  DBName = GetName("strMainDB")
  DBTable = GetName("strDefaultsTable")
 
  On Error GoTo ErrorHandler
 
    'Create the connection string
    szConnect = "Provider=Microsoft.jet.oledb.4.0;" & _
        "Data source=" & DBPath & DBName & ";" & _
        "Mode=Share Exclusive"
   
    'Create the Command object we´ll use
    Set objCommand = New ADODB.Command
    objCommand.ActiveConnection = szConnect
    objCommand.CommandText = "SELECT [Værdi] " & _
                              "FROM " & DBTable & " " & _
                              "WHERE [Id] ='" & CStr(IDC) & "';"
   
    Set rsData = objCommand.Execute(Options:=adCmdText)
   
    ReadSingleValue = rsData(0)
   
ErrorExit:
    'Destroy out ADO objects
    Set objCommand = Nothing
    Set rsData = Nothing
    Exit Function

ErrorHandler:
    MsgBox Err.Description, vbCritical
    Resume ErrorExit
End Function

Kommentar til koden er stadig meget velkommen.

Der findes jo mange mange måder at angribe det at hente data fra en Access database. Her findes et eksempel, som du kan lure lidt på, hvis du har lyst.

http://www.win-consult.com/Tips/LibrarySource.asp?App=Excel&Lib=ADO_AccessData