INSERT语句中用文本框的问题

语句如下：
Str1 = "INSERT INTO CompareMain (Xm_Code , Xm_Lb, Our_Code, Lb_Code ,is_comp ) values('" & TDBText4.Text & "','" & TDBText10.Text & "' ,'" & TDBText4.Text & "','" & TDBText10.Text & "','" & TDBText12.Text & "')"tdbtext.text的格式不对，明明有数据但是总是提示为空，请哪位大哥指点一下