Visual Basic - Problemas con almacenamiento de datos SQL server

Hola espero me ayuden por favor

tengo 2 cuadros de texto en uno tomo la fecha automaticamente del sistema

y el otro agrego un valor ejemplo (1)

Este es el codigo

cnn.Execute "Insert into Tesis (Alumno, fecha) VALUES ('" & Text2.Text & "'", DateValue(Text1.Text) & " ')"

y me sale el siguiente msg

Sintaxis incorrecta cerca de '1'

en realidad no se que estoy haciendo mal

Espero me ayuden por favor

URGENTE

GRACIAS POR TODO........

Creo que está mal el uso de una coma, prueba concatenando el "DateValue" así:

cnn.Execute "Insert into Tesis (Alumno, fecha) VALUES ('" & Text2.Text & "'" & DateValue(Text1.Text) & " ')"

Creo que el campo de fecha debe ir entre # y sin datavalue

Ups, me faltó algo.
cnn.Execute "Insert into Tesis (Alumno, fecha) VALUES ('" & Text2.Text & "','" & DateValue(Text1.Text) & " ')"

Excelente muchas gracias por su ayuda

aquellas personas que me respondieron en realidad se los agradezco

si me pyedn enviar su correo electronico, porque de verdad es asi que se debe tener en el msg programadores excelentes que ayuden a la comunidad

este es mi correo

[email protected]

se los agradezco

Gracias