Har du set hvor smart det kan være?

• Word - Smart Office Skabelon system
• Word - Søg og erstat i flere dokumenter
• Excel - File Export
• Excel - Data Management (Freeware)

SmartOffice - ADO_AccessData

Option Explicit

' Reference to: Microsoft ActiveX Data Objects x.x Library

Public Const gsDB_PROVIDER As String = "Microsoft.jet.oledb.4.0"
'Public Const gsDB_ID As String = ""
'Public Const gsDB_PWD As String = ""
Public Const gsDB_DBQ As String = "C:\Kunder.mdb"

Public gconDB As ADODB.Connection
Public grsData As ADODB.Recordset


Public Sub ConnectAccessDB(ByVal bConnect As Boolean)
    If bConnect Then
        Set gconDB = New ADODB.Connection
        gconDB.Provider = gsDB_PROVIDER
        gconDB.Open gsDB_DBQ
    Else
        grsData.Close
        gconDB.Close
        Set grsData = Nothing
        Set gconDB = Nothing
    End If
End Sub

Public Function FillRecordSet(ByVal SQLSentence As String) As Boolean
    FillRecordSet = False
    Set grsData = New ADODB.Recordset
    
    On Error Resume Next
    Set grsData = gconDB.Execute(SQLSentence)
    
    If Not grsData.EOF Then FillRecordSet = True
End Function

Public Sub UseDataInRecordSet()
    ConnectAccessDB True
    If FillRecordSet("select * from kunder") Then
        ' If FillRecordSet = True then there is Data in grsData
        ' Now do what you need to do with the RecordSet
        MsgBox grsData.Fields(1).Value
    End If
    ConnectAccessDB False
End Sub