Dim stm As TextStream, fso As FileSystemObject, strLine As String, strChar As String, strArr() As String, nArr As Long, nArrMax As Long, nArrMin As Long

Dim strFilename As String, strMessage As String

strFilename = DFirst("Database", "MSysObjects", "[Type] = 6")

strFilename = Left(strFilename, InStrRev(strFilename, ".")) & "laccdb"



Set fso = New FileSystemObject

Set stm = fso.OpenTextFile(strFilename, ForReading, False, TristateFalse) 



While Not stm.AtEndOfStream

    strChar = stm.Read(1)

    If Asc(strChar) > 13 And Asc(strChar) < 127 Then

        strLine = strLine & strChar

    End If

Wend

strMessage = "Users Logged In: " & vbCrLf

'Debug.Print strLine

strArr = Split(strLine, "Admin", , vbTextCompare)

nArrMax = UBound(strArr)

nArrMin = LBound(strArr)

For nArr = nArrMin To nArrMax  

    strArr(nArr) = Trim(strArr(nArr))  

    If Len(strArr(nArr)) > 1 Then  



        msgbox strMessage & " " & strArr(nArr)



    End If

Next

MsgBox strMessage  

stm.Close

Set stm = Nothing

Set fso = Nothing

Üstteki kod, veritabanına bağlanan bilgisayarların adını gösterir.
Referanslara "Microsoft Scripting Runtime" referansını eklemek gerekli