Dim Val1(2) as String : Dim Val2(2) as String : Dim Val3(2) as String
Dim Val1(0) = "Pro" : Dim Val1(1) = "Visual" : Dim Val1(2) = "Usando"
Dim Val2(0) = "gra" : Dim Val2(1) = "Basic" : Dim Val2(2) = "SQL"
Dim Val3(0) = "macion" : Dim Val3(1) = "6" : Dim Val3(2) = "Server"
Dim XX As Integer : Dim Sql As String
For XX = 0 To 2
Sql = "Insert Into Tabla Values ('" & Val1(XX) & "','" & Val2(XX) & "','" & Val3(XX) & "')"
Next