you can try this. i dont know how to use command prompt for this, so i hope this is ok.
Private Sub cmd_changedate_Click()
Dim ChangeDate
ChangeDate = "October" & " " & 8 & ", " & 2008
Date = ChangeDate
End Sub
Private Sub cmd_changetime_Click()
Dim ChangeTime
ChangeTime = "9:50:50 AM"
Time = ChangeTime
End Sub