Function OpenDSObject(lpszDNName As String, lpszUserName As String, lpszPassword As String, lnReserved As Long) As Object