SoloCodigo

Hola a todos

quisiera saber como grabar una base datos un datos en un texbox no importa si son repetidos, el hecho es que cundo yo introsuzca un dato a un texbox me  guarde ese dato en cuatro campos de la tabla

ejemplo

10


al grabar

campo 1    Campo 2      Campo 3        Campo 4

10               10                  10                  10

Es repetir en un texbox lo mismos datos en 4 campos
si digito un numreo como 10
entonces se guardan a los mismos campos

si usted puede hacerlo

como me ayudaria a hacerlo

este es el codigo de la coneccion

[list type=]Public Sub IniciarConexion()
    Ruta = App.Path
    Set Espacio = CreateWorkspace("ConeccionBingo", "", "", dbUseODBC)
    'Set Base = Espacio.OpenDatabase("Bingo", dbOpensnatshop)
    Set Base = Espacio.OpenDatabase("Bingo", _
        dbDriverNoPrompt, False, _
        "ODBC;DATABASE=eds;UID=1;PWD=B3151J0885F8983LSKB;DSN=Bingo")
       
End Sub[/list]

y este es la funcion que no me puede grabar los datos

SQL = "SELECT * FROM Juego WHERE (identificador=" & Numero & ")"
        Set RstJueguito = Base.OpenRecordset(SQL, dbOpenDynaset, dbRunAsync, dbPessimistic)
        RstJueguito.MoveFirst
        If Not (RstJueguito.EOF) Then
            RstJueguito.Edit
                For I = 1 To 75
                    RstJueguito(I) = JugadasAnteriores(I - 1)
                Next I
            RstJueguito.Update
        End If
        RstJueguito.Close

agradeszco como serie el la mejor forma de grabar el codigo