Insert - VBWEB

Pessal, eu tenho o segunite código, mas ele não inseri letras apenas números, por quê?

Private rst2 As Recordset

Private Sub Command1_Click()

Dim sql2 As String
Dim tamanhopagina As Long

Set rst2 = New ADODB.Recordset

strConexao = "Driver={MySQL ODBC 3.51 Driver};Server= ;" & "UID= ;PWD= ;Port= ;DATABASE= ;OPTION= "
Set con = New ADODB.Connection
Set con = dbConSQL

sql2 = ("SELECT * FROM envio")

rst2.Open sql2, con, adOpenDynamic, adLockBatchOptimistic


'alterar esta linhas de localização
strConexao = "Driver={MySQL ODBC 3.51 Driver};Server= ;" & "UID= ;PWD= ;Port= ;DATABASE= ;OPTION= "
Set con = New ADODB.Connection
Set con = dbConSQL

    If Command1.Caption = "Gravar" Then
        sql2 = "INSERT envio(data, origem, destino, cc_com_copia, cco_com_copia_oculta, assunto, mensagem, anexo, nome_destinatario)" & "Values( '2003-12-31 01:02:03' , " & Text1.Text & ", " & Text2.Text & ", " & Text3.Text & ", " & Text4.Text & ", " & Text5.Text & ", " & Text6.Text & ", " & Text7.Text & ",' " & Text8.Text & "'  )"
        'sql2 = "Insert into envio (data,origem,destino,cc_com_copia,cco_com_copia_oculta,assunto,mensagem,anexo,nome_destinatario) values('8000-05-02 00:00:00', " & Text1.Text & "," & Text2.Text & "," & Text3.Text & "," & Text4.Text & "," & Text5.Text & "," & Text6.Text & "," & Text7.Text & "," & Text8.Text & ")"


        ' Incluir a seguinte linha
        con.Execute sql2
        Else

    Set rst2 = New ADODB.Recordset

sql2 = ("SELECT * FROM envio")

'Use rs.Execute sql2 e não rs.Open.
rst2.Open sql2, con, adOpenDynamic, adLockBatchOptimistic
'Use rs.Execute sql2 e não rs.Open.

Call LimpaCampos
End If

End Sub

Private Sub Command2_Click()
    msg = MsgBox("Confirma a exclusão", vbYesNo, Me.Caption)
    If msg = vbYes Then
        sql2 = "delete from data where codigo=" & Registro

Set rst2 = New ADODB.Recordset

strConexao = "Driver={MySQL ODBC 3.51 Driver};Server= ;" & "UID= ;PWD= ;Port= ;DATABASE= ;OPTION= "
Set con = New ADODB.Connection
Set con = dbConSQL

sql2 = ("SELECT * FROM envio")

rst2.Open sql2, con, adOpenDynamic, adLockBatchOptimistic
Call LimpaCampos
End If

End Sub

Private Sub Command3_Click()

    Call LimpaCampos

End Sub

Sub LimpaCampos()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Command1.Caption = "Gravar"
    Command2.Caption = "Excluir"
    Command3.Caption = "Limpar"
    'Command1.Enabled = False
    Command2.Enabled = False
    Command3.Enabled = False
    'Call EstadosBrasil
    Text1.SetFocus
End Sub

Grato pela ajuda.