MsgBox Mid("'1998.1.1", 2)
End Sub
vb是可以改，但是我建議用SQL語句直接改數據庫
update 表 set 列=right（列，len（列）-1）
Mid 函數
返回 Variant (String)，其中包含字符串中指定數量的字符。
語法
Mid(string, start[, length])
start 必要參數。為 Long。string 中被取出部分的字符位置。如果 start 超過 string 的字符數，Mid 返回零長度字符串 ("")。
length 可選參數；為 Variant (Long)。要返回的字符數。如果省略或 length 超過文本的字符數（包括 start 處的字符），將返回字符串中從 start 到尾端的所有字符。
有可能是妳的start變量值大於字符串長度,導致返回空字符串,或者是變量值為0,導致錯誤