Mapping Bases de donnees Notes et Oracle

Option Explicit

Private Sub UserForm_Initialize()
Dim wbBook As Workbook
Dim wsSheet As Worksheet
Dim rnData As Range
Dim adoCN As ADODB.Connection
Dim adoRst As ADODB.Recordset
Dim stSQL As String
Dim vaData As Variant

Set adoCN = New ADODB.Connection
Set wbBook = ThisWorkbook
Set wsSheet = wbBook.Worksheets("Blad1")

'This is my specific settings with Database and Server.
adoCN.Open ("Driver={Lotus NotesSQL Driver (*.nsf)};Database=names.nsf;Server=Local;")

'Easiest way of get the name of table and fields is to use MS Query.
stSQL = "SELECT MailAddress FROM Person ORDER BY MailAddress"

Set adoRst = adoCN.Execute(stSQL)

With wsSheet
.UsedRange.ClearContents
'I prefer to dump the data into a range.
.Range("A2").CopyFromRecordset adoRst
Set rnData = .Range(.Range("A2"), .Range("A65536").End(xlUp))
End With

vaData = rnData.Value

'...and read all data into the Combobox in one go.
With ComboBox1
.List = vaData
End With

adoCN.Close
Set adoRst = Nothing
Set adoCN = Nothing

End Sub