Scott!

Here is the code to connect to Access Database. You do it similar like visual basic 6.0. Remember to go to the "REFERNCE" menu and check on Microsoft ActiveX Data Object 2.0.

__________________________________________________________
Option Explicit
'OVERALL: This project will use one table and one query
' from the database "Ops_revw2000.mdb".
' TABLE NAME = "[dbo_Saveset_calc]"
' QUERY NAME = "[OR Status]"

Public cn As ADODB.Connection
Public rs As ADODB.Recordset

Sub p_Fill_Listbox(strFormCaption As String, objMultiSelect, strSQL As String, strField As String)
'PURPOSE: Uses ADO to retrieve an SQL Server recordset
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & gstr_Database_Name & ";" & _
"DefaultDir=" & gstr_Database_Location & ";" & _
"UID=admin;PWD=;"
cn.Open

'_______________________________________________________________
frmAccessDB.Caption = strFormCaption

'PURPOSE: Refresh the listbox
frmAccessDB.lstAccessDatabase.Clear
frmAccessDB.lstAccessDatabase.MultiSelect = objMultiSelect

Set rs = New Recordset
With rs
'PURPOSE: Query to get Ops Review Code
.Open strSQL, cn, adOpenStatic, adLockOptimistic

'____ Method 1 - Fastest ___________________________________________
Dim int_Rec_Count As Integer
Dim int_Counter As Integer
.MoveLast
int_Rec_Count = .RecordCount
.MoveFirst

For int_Counter = 1 To int_Rec_Count
If Trim(.Fields(strField)) <> "" Then
frmAccessDB.lstAccessDatabase.AddItem Trim(.Fields(strField))
End If
.MoveNext
Next

''____ Method 2 - _________________________________________________
' Do Until .EOF
' 'PURPOSE: Populate the listbox with the
' ' new result from the recordset.
' ' Cannot be null!
' If Trim(.Fields(strField)) <> "" Then
' frmAccessDB.lstAccessDatabase.AddItem Trim(.Fields(strField))
' End If
'
' 'PURPOSE: Move to the next record
' .MoveNext
' Loop
''__________________________________________________________________


'PURPOSE: Total number of record
frmAccessDB.lblRecordCount.Caption = "Total Records: " & .RecordCount

'PURPOSE: Close the recordset
.Close
End With
End Sub









________________________________________________________

As for Serge!

Thanks for the site but I found another site that actually download even faster and with out the question Microsoft make you answer. The only thing is I can remember where the site is now. But never the less I have the file.

Thanks Serge.