INSERT SQL query with the help of VB

Public cnn As New ADODB.Connection
cnn.ConnectionString = "provider=MSDAORA;user id =scott;password=tiger;"
cnn.CursorLocation = adUseClient
cnn.Open

Public rsret As New ADODB.Recordset
With rsret
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "member", cnn, , , adCmdTable

sq = "insert into return values('" & Text2.Text & "',#'" & CStr(Date) & "'#,'" & Text5.Text & "')"

cnn.Execute sq

error:invalid character