Put A Table Value In The Title Bar

Hi,

I want to put a value from a field in a table in the Title Bar.


So far i have done (Looking at 2 ways to create, 1 with module below or directly in the form, only just lloking at the module way so is not finished as i am waiting to get it to work directly first):

Module
Option Compare Database

Function ChangeTitle()
Dim dbs As DAO.Database
Dim prp As DAO.Property
Const conPropNotFoundError = 3270

On Error GoTo ErrorHandler
' Return Database variable pointing to current database.
Set dbs = CurrentDb
' Change title bar.
dbs.Properties!AppTitle = "DYSMS " & (SoftwareVersion.tblSoftwareInformation)
' Update title bar on screen.
Application.RefreshTitleBar
Exit Function

ErrorHandler:
If Err.Number = conPropNotFoundError Then
Set prp = dbs.CreateProperty("AppTitle", dbText, _
SoftwareVersion.tblSoftwareInformation)
dbs.Properties.Append prp
Else
MsgBox "Error: " & Err.Number & vbCrLf & Err.Description
End If
Resume Next
End Function

Directly

Does not work
Dim stAppTitle As String
stAppTitle = "DYSMS " & (SoftwareVersion.tblSoftwareInformation)
Me.Caption = stAppTitle

Does work
Dim stAppTitle As String
stAppTitle = "DYSMS " & (Now())
Me.Caption = stAppTitle

So need to declare the SoftwareVersion field i guess??

Thanks

Dan