Realizar operaciones vb en bases de datos de Access

Dim Rs como nuevo ADODB.Recordset 'Definir conjunto de registros

Private Sub Form_Load() 'Inicialización

cn . Abra "Provider= Microsoft.Jet.OLEDB.4..0; Data Source=" amp; App.Path amp "\NCRE.MDB; Persist Security Info=False" 'Conectarse a la base de datos ACC

Rs.Open "seleccione Topic_NO de Topic_Orig0909", cn, adOpenKeyset, adLockOptimistic 'Abra el conjunto de registros, donde: Topic_NO es el nombre del campo Topic_Orig0909 es el nombre de la tabla, es mejor seguir las condiciones, porque no sé qué condiciones quieres, base de datos ¿Cómo se ve, así que no lo escribí?

Texto1 = Rs(0) 'Text1 muestra el primer campo en el conjunto de registros Rs

End Sub

Private Sub Command1_Click()

Establecer Rs = cn.Execute("update Topic_Orig0909")Execute("actualizar Topic_Orig0909 set Topic_NO='" amp; Text1 amp; "'") 'Establece la tabla Topic_Orig0909 Cambia el campo Topic_NO a los datos en Texto1.

End Sub

'Update TableName Set field1='12345' Where ID='001' 'Especifique el lugar a modificar'