出现”字符串的语法异常，在查询表达式.中“.请高手帮帮忙！

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

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