Visual Basic - insert into con errores vacios

hola amig@s tengo este code con los siguientes problemas , me da de alta correctamente el nuevo cliente pero en los campos de texto me los carga vacios sin cadenas o valores , alguna solucion :
--------------------------------------------------------------------

Textcampo(6).SetFocus

Textcampo(6).SetFocus
With cmd
.ActiveConnection = adocnn
.CommandText = ordensql
'.Prepared = True
.CommandType = adCmdText
'.Parameters(nombre) = Textcampo(6)
'.Parameters(nif) = Textcampo(7)
'.Parameters(postal) = Textcampo(8)
'.Parameters(población) = Textcampo(9)
'.Parameters(dirección) = Textcampo(10)
'.Parameters(provincia) = Textcampo(11)
'.Parameters(telefono1) = Textcampo(12)
'.Parameters(telefono2) = Textcampo(13)
'.Parameters(fax) = Textcampo(14)
'.Parameters(movil) = Textcampo(15)
'.Parameters(email) = Textcampo(16)
'.Parameters(web) = Textcampo(17)
'.Parameters(observaciones_cliente) = Textcampo(18)
End With
ordensql = "insert into clientes (nombre,población,nif,postal,dirección,provincia,telefono1,telefono2,fax,movil,email,web,observaciones_cliente)" _
& "Values ('" & Textcampo(6) & "', '" & Textcampo(9) & "','" & Textcampo(7) & "','" & Textcampo(8) & "','" & Textcampo(10) _
& "','" & Textcampo(11) & "','" & Textcampo(12) & "','" & Textcampo(13) & "','" & Textcampo(14) & "','" & Textcampo(15) _
& "','" & Textcampo(16) & "','" & Textcampo(17) & "','" & Textcampo(18) & "')"

cmd.Execute ordensql