Anyone know much about access programming

Cheers for the help/ advice Andrew.

Have a look at this.....

Private Sub MyButton_Click()
    Dim nCounter As Long
    Dim sSource As String

    For nCounter = 0 To DateBox.ListCount - 1
        If DateBox.Selected(nCounter) = True Then
            sSource = sSource & DateBox.ItemData(nCounter) & ";"
        End If
    Next

    sSource = Left$(sSource,Len(sSource)-1)
    frmSelectedDate.RowSource = sSource
End Sub