View Single Post
  #3  
Old January 10th 06, 08:46 AM posted to microsoft.public.outlook.program_vba
Michael Bauer
external usenet poster
 
Posts: 435
Default Open Access DB from Outlook

Am Mon, 9 Jan 2006 08:07:04 -0800 schrieb Richard:

Sample with ADO:

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "D:\db.mdb"
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone
.Open
End With

Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
Set .ActiveConnection = cn
.Open ("select [Field list] from [Tabellenname]")
End With

Finished:
rs.Close
cn.Close


--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook



Please help. I need to open an Access 2000 database (which is on a

network
server) from inside Outlook 2000, using a macro assigned to a toolbar

button.

If it can be done.

Thank you for your help.

Ads