Actualizar mi base de datos

[manedf]

Hola, espero explicarme bien !!
Quisiera saber como puedo actualizar mi base de datos en tiempo de ejecucion, lo que pasa es que tengo mi base (acces) conectada a un data y los campos de mi base se muestran en cajas de texto, alli mismo tengo un boton para hacer una consulta de los nombres de todos los clientes en orden alfabetico y se muestra en un lisbox que esta en un form aparte.

mi problema es que cuando ingreso un cliente nuevo y queda grabado, éste no aparece en mi listbox cuando hago la consulta de clientes en orden alfabetico, y tengo un text box en donde me dice el numero total de clientes, osea que al ingresar un clinete nuevo este debe incrementar y no lo hace, hasta que cierro totalmente todo el programa es cuando ya aparece el nuevo cliente en el listbox e incrementa el numero de clientes.

codigo en el boton para grabar los datos de un cliente nuevo
data1.recordset.update

codigo en el form que muestra la consulta de clientes en un listbox

Private Sub Form_Load()
Dim BDD As Database
Dim TBL As Recordset
Set BDD = OpenDatabase("C:\Mis documentos\Memorial\nichos2.mdb")
Dim SQL As String
SQL = "SELECT * FROM nichos"
SQL = "SELECT * FROM nichos ORDER BY nombre ASC"
Set TBL = BDD.OpenRecordset(SQL)
TBL.MoveFirst
Do Until TBL.EOF
List1.AddItem TBL("nombre") & " " & TBL("Apellido1") & " " & TBL("Apellido2") TBL.MoveNext
Loop
TBL.Close
BDD.Close
End Sub

Por cierto como puedo hacer para que me muestre el resultado de esta consulta en un text box y no en un listbox el cambio debe ser donde esta de color rojo pero no he podido.

Private Sub Form_Load()
Dim BDD As Database
Dim TBL As Recordset
Set BDD = OpenDatabase("C:\Mis documentos\Memorial\nichos2.mdb")
Dim SQL As String
SQL = "SELECT COUNT(*) FROM nichos"
Set TBL = BDD.OpenRecordset(SQL)
List1.AddItem TBL("expr1000")
End Sub

MUCHAS GRACIAS POR SU AYUDA