Private Const strExitSource = "SELECT tblObjectLabel.lbTexts FROM tblObjectLabel " & _ "WHERE (([tblObjectLabel]![lbObjekts]='cmdExit'));" Private strExitCaption As String Private Sub Form_Load() Me!cmdExitCaption.Source = strExitSource End Sub