Utilizo programación VB para agregar datos a la base de datos, pero cada vez se reemplaza la primera fila de datos original. Echa un vistazo al código

Dim sql As String

sql = "select * from Teacher"

'Hay un problema con esta oración. Debe ser para modificar la primera fila. de datos Debería ser

sql = "select * from Teacher Order BY ID Desc"

Set rs = exesql(sql)

'La siguiente declaración. debe agregarse aquí:

p>

rs.AddNew 'Agregar nuevos datos

rs.Fields("Nombre del administrador") = Trim(Text1.Text)

rs.Fields("Número de trabajo ") = Trim(Text2.Text)

rs.Fields("Contraseña de administrador") = Trim(Text19.Text)

rs.Fields("Género") = Recortar (Text3.Text)

rs.Fields("Información de contacto") = Recortar(Text4.Text)

rs.Fields(" Dirección particular") = Trim(Text5.Text )

rs.Update

rs.Close

Además, creo que la siguiente afirmación no tiene significado y debe eliminarse:

rs Fields("Nombre del administrador") = ""

rs.Fields("ID del empleado") = ""

rs. .Fields("Contraseña del administrador") = ""

rs.Fields("Género") = ""

rs.Fields("Información de contacto") = ""

rs.Fields("Dirección familiar") = ""