io creo una tabella utilizzando uno script sql:

__________________________________________________ ____________
Set rsAccount = CreateObject("ADODB.RecordSet")
crea_Account = "CREATE TABLE Account " &_
"( IdAccount counter,"&_
" Account char(50) NOT NULL,"&_
" IP char(50) NOT NULL,"&_
" email char(50) NOT NULL,"&_
" PRIMARY KEY (Account)"&_
"); "
rsAccount.open crea_Account, nuova
__________________________________________________ _____________

e come valore per i campi gli passo i dati di un altra tabella:

__________________________________________________ ______________
Do Until rsAccountCerca.EOF=True
Account = rsAccountCerca.Fields("Account")
IP=rsAccountCerca.Fields("IP")
email=rsAccountCerca.Fields("email")

aggiungi_Account ="INSERT INTO Account(Account,IP,email) " &_
"VALUES ('"&Account& "','" &_
IP& "','" &_
email& "');"
nuova.execute aggiungi_Account

rsAccountCerca.MoveNext
loop
__________________________________________________ _____________

mi inserisce correttamente tutto solo che mette tanti spazi in ogni cella fino ad arrivare ai 50 caratteri della tabella.


come posso evitarlo??