Hola
Para hacer una insert directamente en una tabla no tienes que utilizar el recordset, tienes que hacerlo directamente con la conexión a la bd, algo como:
Código:
Dim bdmail As New ADODB.Connection
bd.Open .... (cadena conex)
bd.execute "Insert into libretas(dni) values('" & dni.text & "')"
La cadena de conexión depende de la bd utilizada.
--Saludos--