Visual Basic - consulta

saludos por favor al abrir un recordset como este deseo actualizar los datos usando un cuadro de texto con expresiones en tiempo de ejecucion sin embargo el programa señala que la expresion es incorrecta:

Dim rs1 As ADODB.Recordset
Dim cn1 As ADODB.Connection
Dim cmd1 As ADODB.Command
Dim strsqlchange11 As String

strsqlchange11 = "select * from " & Text3.Text & ""

Set cn1 = New ADODB.Connection
cn1.Open "DSN=CURRICULUM"
Set rs1 = New ADODB.Recordset

rs1.CursorType = adOpenStatic
rs1.LockType = adLockOptimistic
Set cmd1 = New ADODB.Command
Set cmd1.ActiveConnection = cn1
cmd1.CommandText = strsqlchange11
cmd1.CommandType = adCmdText
rs1.Source = cmd1.CommandText
rs1.ActiveConnection = "dsn=Curriculum"
rs1.Open

text1.text=(4*5) (El usuario ingresa los datos)

rs.fields("cantidad")=text1.text
rs.update

si es literal si la entiende:

rs.fields("cantidad")=(4*5)
rs.update

que debo hacer por favor?


no se que expresion o funcion usar para que lo actualise ya que usando el sql solo admite sus funciones y no las funciones que cree el usuario

gracias