Attribute VB_Name = "basMDAC"
Option Compare Database
Option Explicit

Sub MDAC()

Dim cnConn As ADODB.Connection
Set cnConn = CurrentProject.Connection

Debug.Print cnConn.Version

Set cnConn = Nothing

End Sub