With objConn
            .CursorLocation = adUseClient 'adUserClient wurde nicht definiert
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .Properties("Data Source") = m_strDBFileName 'Item is read only
            .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