metinkutusu=Application.CurrentProject.Name

Public Function GetLinkedDBName(TableName As String) As String
    Dim strReturn As String
    On Error Resume Next
    strReturn = CurrentDb.TableDefs(TableName).Connect
    GetLinkedDBName = strReturn
End Function

Public Function FileNameFromPath(strFullPath As String) As String
    FileNameFromPath = Right(strFullPath, Len(strFullPath) - InStrRev(strFullPath, "\"))
End Function

Me.VERITABANI = FileNameFromPath(GetLinkedDBName("TBLOGRENCI"))