COMO GRAVAR UM LIST EM ACCESS

Private Sub Command1_Click()
'Reservamos espaço na memória para as variáveis da rotina ( ou Dimencionamos "Dim")
Dim x As Integer
Dim strDB As String
Dim strConn As String
Dim strSQL As String
Dim objCNN As ADODB.Connection

'Informe o local exato do seu arquivo .mdb entre as aspas, abaixo um exemplo
strDB = "C:\Minha aplicação\Dados\arquivo_access.mdb"

'Aqui é padrão, deixa assim mesmo ... caprixa na linha de cima !!!
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDB & ";Persist Security Info=False"

'Efetivamente criamos na memória do computador um objeto que tinhamos reservado espaço
Set objCNN = New ADODB.Connection

'Abrimos o banco de dados, agora podemos manusear informações dele...
objCNN.Open strConn

'Loop que percorre o list e inclue item a item no Access
'Como o primeiro item do list tem listindex 0 o último é listcount-1
For x = 0 To List1.ListCount - 1
'Informamos a linha para cada loop
    List1.ListIndex = x
    
    'Criamos uma instrução em linguagem SQL que execute a tarefa (Vai precisar aprender isto na sua vida)
    strSQL = "INSERT INTO nome_tabela(campo_tabela)VALUES('" & List1.Text & "')"

    'Solicitamos ao objeto connection que execute o comando SQL acima
    objCNN.Execute strSQL, , adExecuteNoRecords

'neste momento x agrega +1 automático (x=x+1)
Next

'Fechamos a conexão
objCNN.Close

'Excluímos da memória aquele objeto criado anteriormente
'A linguagem VB tem este problema só com estes tipos de variáveis
Set objCNN = Nothing

End Sub