Date input

[steve a]

Hi.
I'm currently using an onscreen keypad to input a date into a row on a data
base,
I'm having a little trouble with the format.
I can enter the date when the field is "text" but when i change the row
porpertie to date/time i get a message saying that "the value i entered
isn't valid for the field"

the code i am using for the command button is:


Sub AddDigit(NewDigit As String)
If Len(Me.SSN & NewDigit) <= 6 Then
Me.SSN = Me.SSN & NewDigit
End If
If Len(Me.SSN) = 6 Then
Me.combined.Visible = True
Me.Label238.Visible = True
End If
If Len(Me.SSN) < 6 Then
Me.combined.Visible = False
Me.Label238.Visible = False
End If
End Sub

---------------------------------------------------------------------------------
Private Sub cmd9_Click()
On Error GoTo Err_cmd9_Click

Call AddDigit("9")

Exit_cmd9_Click:
Exit Sub

Err_cmd9_Click:
MsgBox Err.Description
Resume Exit_cmd9_Click

End Sub


Ive tried to use send keys using the code

me.ssn.setfocus
sendkeys "9"

this lets me enter 1 digit before displaying the same message..
Help please... i'm stuck!
Many thanks
Steve