Scrolling Messages - How To Link To A Table?

I have got the following code off another thread which works great!

I was just wondering if there was any way I can link the scrolling messages to a table so rather than having to go into the code to alter the messages the user can change them through a form or in the table.

Option Compare Database
Option Explicit

Public txtScrollStatus As String ' Needed for Status Bar


Private Sub Form_Load()
DoCmd.Maximize
' Text for Caption of Form
Me.Caption = " CAPTION MESSAGE " & Space(25)

' Text for Label on Form
Me.lblScrollingLabel.Caption = " SCROLLING LABEL MESSAGE " & Space(100)

' Text for Status Bar
txtScrollStatus = " STATUS BAR MESSAGE " & Space(25)

End Sub

Private Sub Form_Timer()

' Produce the Scrolling Text in Caption on the Form
Me.Caption = Mid(Me.Caption, 2, _
(Len(Me.Caption) - 1)) & Left(Me.Caption, 1)

' Produce the Scrolling Text in Label on the Form
Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _
(Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1)

' Produce the Scrolling Text in Status Bar of Access
SysCmd acSysCmdSetStatus, txtScrollStatus
txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1)) & Left(txtScrollStatus, 1)

End Sub