VB2008 批量批改字段

VB2008 批量修改字段
VB2008 批量修改数据库当前日期字段，数据库db1 数据表表1需更新的字段为当前日期，当前日期更新为系统时间格式XXXX/XX/XX   下面的不更新数据库不知道错在哪了！
        connectionstring = "Provider =Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\data.mdb;"
        Dim conn As New OleDb.OleDbConnection(connectionstring)
        Try
            conn.Open()
            Dim reader As OleDb.OleDbDataReader
            Dim sql As String
            conn.Open()
            sql = ("updata 表1 set 当前时间= FORMAT(NOW(),'yyyy/mm/dd')")
            Dim cmd As New OleDb.OleDbCommand(sql, conn)
            cmd.ExecuteReader()
            conn.Close()
            conn = Nothing
        Catch ex As Exception
        End Try
    End Sub

数据库 vb
[解决办法]
Dim reader As OleDb.OleDbDataReader
你定义了reader，但是未曾使用....警告而已，没有什么大事，只是浪费内存而已