[Resolvido]INSERT INTO

Boa noite Amigos

Nesta linha do código abaixo,

strSql = strSql & "(""Pontocom Informática""," 'Tipo String

Como ficaria se eu quiser inserir o valor que está numa caixa de texto do formulário
Tentei assim e não resultou:

strSql = strSql & " me.txtnome " 'Tipo String

Private Sub btInsert_Click()
Dim strSql$
strSql = "INSERT INTO tblTeste (NomeCliente,DataNascimento,Operadora,"
strSql = strSql & "ValorCobrado,Nota,Renovar,Desconto,Pontuação) VALUES "
strSql = strSql & "(""Pontocom Informática""," 'Tipo String
strSql = strSql & "'15/05/2005'," 'Tipo data
strSql = strSql & "'Vivo'," 'Tipo String
strSql = strSql & "'50,00'," 'Tipo Duplo
strSql = strSql & "'1267'," ' Tipo LOng
strSql = strSql & "'-1'," 'Tipo Boolean
strSql = strSql & "'6,50'," 'Tipo Currency
strSql = strSql & "'4'" 'Tipo Byte"
strSql = strSql & ");"

CurrentDb.Execute strSql
MsgBox "Abra a tabela tblTeste e verifique os dados lançados...", vbInformation, "Aviso"

End Sub

Obrigado

Bom dia, Assis
strSql = strSql & "('" & me.txtnome & "'," 'Tipo String

Bom dia, Alexandre
Este resolveu
strSql = strSql & "('" & me.txtnome & "'," 'Tipo String

Obrigado