Desconcatenar!

[Kitty_05]

Te muestro mi codigo no logro hacer que funcione :( ... me manda error apenas le doy click al boton :(

Código:

Private Sub Command2_Click()
Dim BD As ADODB.Connection
Dim RecSQL As ADODB.Recordset
Dim a() As String, s As String, x() As String, y As String

Set BD = CONECTAR()
Set RecSQL = New ADODB.Recordset
RecSQL.Open "select * from provs", BD, adOpenStatic, adLockOptimistic
RecSQL.AddNew
RecSQL.Fields(1).Value = Text1.Text(0) & Text2.Text(1) & Text3.Text(2) & Text4.Text(3) & Text5.Text(4) & Text6.Text(5) & Text7.Text(6) & Text8.Text(7) & Text9.Text(8) & Text10.Text(9)
s = RecSQL.Fields(1).Value
a = Split(s, ",")

RecSQL.Fields(2).Value = Text14.Text(0) & Text15.Text(1) & Text16.Text(2) & Text17.Text(3) & Text18.Text(4) & Text19.Text(5) & Text20.Text(6) & Text21.Text(7) & Text22.Text(8) & Text23.Text(9) & Text24.Text(10)
x = RecSQL.Fields(2).Value
y = Split(x, ",")

RecSQL.Fields(4).Value = Text30.Text
RecSQL.Fields(5).Value = Text31.Text
RecSQL.Fields(3).Value = Text26.Text

RecSQL.Update
RecSQL.Close
Set RecSQL = Nothing

End Sub