Alterar Somente primeiro dia da data

Ola pessoal gostaria de mais um ajudinha queria alterar somente o primeiro dia da data num subformulário.
tenho este código


Dim rs As Recordset

Set rs = Me!Frm_Alunos_Horarios.Form.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
If rs.Fields("Realizado") = False And rs.Fields("Selecionar") = True Then 'So Acrescentei esta linha no codigo.
rs.Edit
rs![HoraCompromisso] = Me.Texto68
rs![DataCompromisso] = Me.Texto71 "aqui que eu queria que ele somente altera-se o dia no campo"
rs.Update

End If
rs.MoveNext
Loop
rs.Close

Set rs = Nothing

Bom dia,

Não sei muito bem como você quer alterar a data, mas vou te dar duas opções e você vê se uma delas serve.

Nesse primeiro código é se você quiser fixar uma data para todo registro que quer inserir.

Código:

rs![DataCompromisso] = "01/" & Right(Me.Texto71.Text, 7)

Agora se você quer adicionar dias na data é só utilizar o DateAdd, segue um exemplo que adiciona +1 no dia da data:

Código:

rs![DataCompromisso] = DateAdd("d",1,Me.Texto71)

Espero ter ajudado.