grabar los items de un listbox con el contenido de un textbox

[gerardo_goh]

Private Sub Form_Activate()
Dim BD As ADODB.Connection
Dim rs As ADODB.Recordset
Set BD = New ADODB.Connection
Set rs = New ADODB.Recordset
BD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =C:\Proyecto Almacén\Base_de_Datos\bdAlmacen.mdb"
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM tblEquipo", BD, adOpenStatic, adLockOptimistic

With rs
Do Until .EOF
ListBox1.AddItem .Fields(0)
.MoveNext
Loop
End With
End Sub

Hasta aqui ya cargue los items en el listbox pero tengo un texbox con el contenido 990 (cliente), lo que necesito es que cada item vaya relacionado con el contenido del textbox (990) en una tabla que le llame tblCliente que contiene las columnas (clave) que es el valor de cada item del listbox y la otra columna de la tabla es (cliente) que seria el valor del textbox, muchas gracias, Saludos!!!