With objConn
            .CursorLocation = ADODB.CursorLocationEnum.adUseClient
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            '.Properties("Data Source") = m_strDBFileName
            m_strDBFileName = .Properties("Data Source")
            .Open()
        End With

Mfg, lighty

---------------------------------------------------
Schaut mal hier:
http://www.reset.ch/index.html

(die Links sind ungef?hrlich )

Ps.: F?r jeden, der wie ich, zu oft vorm Rechner sitzt