ciao a tutti mi dite dov'è l'errore in questa operazione per inserire nuovi dati in un database

Public connessione As New ADODB.Connection
Public risultato As New ADODB.Recordset


Private Sub aggiungere_Click()
percorso = "G:\Andrea\prove visual basic\prova.mdb"
connessione.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & percorso & ";Persist Security Info=False"

risultato.Open "insert into prova(nome)" & " values('" & valnome & "')", connessione

Do Until risultato.EOF
nome.Text = risultato("nome")
cognome.Text = risultato("cognome")
risultato.MoveNext
Loop
End Sub