有数据库的非法字符 ('), 需要替换它,替换(')实例:
Dim string1 As String = "20°15'24"
Dim string2 As String = "'"
Dim string3 As String
Dim string4 As String
Dim int1 As Integer
int1 = InStr(string1, string2, CompareMethod.Text)
string3 = Mid(string1, int1 + 1)
string4 = Mid(string1, 1, int1 - 1)
string1 = string4 & string3