Hi,
If you want to do this in VB, here is some code.
Put this code in a command button 'Command1'
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
MsgBox "MDAC Version installed on this PC = " & Conn.Version, vbOKOnly, "MDAC Version"
End Sub