Create a Pick List - CAPTUREit - Foundation 23.1 - Foundation 23.1 - AnyDoc - external

Const strDBConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\capture\sample.mdb;Persist Security Info=False"

Set objConn = CreateObject("ADODB.CONNECTION")

Set objRS = CreateObject("ADODB.recordset")

objConn.ConnectionString = strDBConn

objConn.Open

objRS.Open "SELECT * FROM InvoicePrompts", objConn

With PromptingControlDialog

nLine = .GetLineIndex("INVOICE")

Do While objRS.EOF = False

.Line(nLine).AddValue( objRS.Fields("Invoice_Type") )

.Line(nLine).AddValue( objRS.Fields("Invoice_Type") )

objRS.MoveNext

Loop

End With