Private Sub Form_Load()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;User Id=admin;Password=;"
cn.Execute ("update TableTest set [datetime]=null")
cn.Execute ("update TableTest set [string]=''")
End Sub