AccessのVBAでSQLのWeekDay関数で曜日を求める

Option Compare Database

'曜日を求めるボタン
Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Dim s1 As String
        Me!テキスト1 = Null
    SQL = "SELECT 名前,生年月日,WeekDay(生年月日) FROM M_社員マスター"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Select Case rs(2)
            Case 1: s1 = "日曜"
            Case 2: s1 = "月曜"
            Case 3: s1 = "火曜"
            Case 4: s1 = "水曜"
            Case 5: s1 = "木曜"
            Case 6: s1 = "金曜"
            Case 7: s1 = "土曜"
        End Select
        Me!テキスト1 = Me!テキスト1 & rs(0) & "  ：  " & rs(1) & "  ：  " & s1 & vbCrLf & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
    End Sub