Visual Basic - problema variable para campo adodb

Hola, necesito ayuda, estoy haciendo un programa para aprender Tarot.

Tengo una base de datos “BaseTarot”, con una tabla “TablaArcanos” y varios campos “1b, 2b, 3b, etc…”

Tengo un txtCarta.text ‘ Ahí pongo el nombre del naipe (ejemplo 1b o 2b etc…)

Tengo un txtSignificado ‘ Ahí pongo el significado del naipe

Esto se refleja en un listbox para hacer una lista (list2)

Lo que pretendo y no consigo es que lo que escriba en el txtCarta y que coincide con el nombre del campo (lo he señalado abajo con unas >>>>) se cambie al teclear el txtCarta. Lo he intentado con variables pero no me sale ( el problema que encuentro es con el caracter “ ¡ “ que indica el campo) yo he hecho X= “ ¡ “ & txtCarta.text , y de todas las formas que se me han ocurrido pero puede ser. Si alguien puede orintarme. No se si me habré explicado bien.

With RsArcanos
.Requery
.AddNew

>>>>>>>>> !1b = Form1.txtSignificado.Text

.Update
.Requery
End With
Form1.List2.Clear
Do While Not RsArcanos.EOF
Form1.List2.AddItem RsArcanos!1b
RsArcanos.MoveNext
Loop

No logro enteder bien lo que quieres hacer:

Pero aqui tienes un error:

Form1.List2.AddItem RsArcanos!1b *****FALTA EL .FIELDS*****

La forma correcta seria:

Form1.List2.AddItem RsArcanos.Fields!1b

De todas formas lo haria asi:

Set RsArcanos = new AdoDb.Recorset
RsArcanos.Open("Select * From TablaArcanos")

With RsArcanos
.MoveFirst
While not .EOF
List2.AddItem .Fields!Id1
.MoveNext
Wend
End with

RsArcanos.Close
Set RsArcanos = Nothing

En primer lugar, gracias por contestarme y a ver si ahora me explico algo mejor poniendo el código completo de grabado.

Global Base As New ADODB.Connection
Global RsArcanos1 As New ADODB.Recordset ‘esto lo tengo en un módulo

Sub main()
With Base
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\NEW2.MDB;Persist Security Info=False"
Form1.Show
End With
End Sub

Sub Arcanos()
With RsArcanos
If .State = 1 Then .Close
.Open "select* from TablaArcanos", Base, adOpenStatic, adLockOptimistic
End With
End Sub
--------------------

With RsArcanos
.Requery
.AddNew

!1b = Form1.txtSignificado.Text

.Update
.Requery
End With ‘ esto está en otro módulo y así me agrega el dato perfectamente en el campo llamado “ 1b “ . ( de todas formas tomo nota de la forma que me dices que se debe de poner)

No tengo problema en grabar los datos, el problema lo tengo en cómo hago para que el campo en el que grabar los datos sea el que escriba en un textbox.

Osea quiero desde un textbox escribir el nombre del campo en el que agregar los datos dinámicamente , (no establecerlo estáticamente en el código).