Snippet Library

'------------------------------------------------------------ 
' Author:  Clint LaFever [lafeverc@usa.net] 
' Purpose:  Used to connect to a database using DAO.  Most commonly used with Access Databases. 
' Parameters: ' Example: 
 '------------------------------------------------------------ 
Option Explicit 
Public DataBaseName As String 
Public UserName As String 
Public Password As String 
Public db As Database              
'DAO Database variable for Local Access Connections 

Public Function ConnectLocal() As Boolean 
On Error GoTo ConnectLocal_Error     
   Set db = OpenDatabase(Me.DataBaseName)     
   ConnectLocal = True 
ConnectLocal_Exit:     
   Exit Function 
ConnectLocal_Error:     
   ConnectLocal = False     
   Resume ConnectLocal_Exit 
End Function	
;