出现”字符串的语法错误，在查询表达式.....中“.请高手帮帮忙！！！
下面是我的原代码，执行到几百行时老是出这种错误（一共几千行），每次出现错误的行数还不一样，请高手帮我看看！！

Dim v() As String
Dim i As Long
v() = Split(RichTextBox2.Text, vbCrLf)
For i = 0 To UBound(v())

If Left(v(i), 3) = "节点号" Then
strdian = Replace(v(i), " ", "")
strdian = Replace(strdian, "节点号=", "")
ElseIf Left(v(i), 7) = "设备IP地址1" Then
strIPAddr = Replace(v(i), " ", "")
strIPAddr = Replace(strIPAddr, "设备IP地址1=", "")

ElseIf Left(v(i), 4) = "节点名称" Then
strNodeName = Replace(v(i), " ", "")
strNodeName = Replace(strNodeName, "节点名称=", "")
ac_Tmp1.Execute " insert into [设备IP对应表](IP,mingcheng,jiedianhao) values('" & strIPAddr & "', '" & strNodeName & "','" & strdian & "')"
End If

Next i


ac_Tmp1.Close


[解决办法]
语法错误
v() = Split(RichTextBox2.Text, vbCrLf)
For i = 0 To UBound(v())

改为
v = Split(RichTextBox2.Text, vbCrLf)
For i = 0 To UBound(v)

其它的类似
[解决办法]
Dim v() As String

Dim i As Long
v = Split(RichTextBox2.Text, vbCrLf)

For i = 0 To UBound(v)
If Left(v(i), 3) = "节点号" Then
strdian = Replace(v(i), " ", "")
strdian = Replace(strdian, "节点号=", "")
ElseIf Left(v(i), 7) = "设备IP地址1" Then
strIPAddr = Replace(v(i), " ", "")
strIPAddr = Replace(strIPAddr, "设备IP地址1=", "")
ElseIf Left(v(i), 4) = "节点名称" Then
strNodeName = Replace(v(i), " ", "")
strNodeName = Replace(strNodeName, "节点名称=", "")
End If
Next i

ac_Tmp1.Execute " insert into [设备IP对应表](IP,mingcheng,jiedianhao) values('" & strIPAddr & "', '" & strNodeName & "','" & strdian & "')"

ac_Tmp1.Close