form1.text2.text=Format(rec("data"),"mm/dd/yyyy")
se não funcionar veja em seu banco de dados como foi que você salvou sua data
um dica que dou é nuca tive problemas com datas porque faço o seguinte salvo minhas datas como string, então não tenho de ficar formatando a mesma.
veja como faço
em um módulo cole esta função
Function CampoDATA(obj As Object, Keyasc As Integer)
If Not ((Keyasc >= Asc("0") And Keyasc <= Asc("9")) Or Keyasc = 8) Then
Keyasc = 0
Exit Function
End If
If Keyasc <> 8 Then
If Len(obj.Text) = 2 Or Len(obj.Text) = 5 Then
obj.Text = obj.Text + "/"
obj.SelStart = Len(obj.Text)
End If
End If
End Function
e no evento keypress do campo em que vai a data chame a função assim
Private Sub txtdata_KeyPress(KeyAscii As Integer)
CampoDATA txtdata, KeyAscii
End Sub
é melhor e evita essa dor de cabeça que você está tendo
