vb中text保存数据代码问题

Private Sub Command1_Click(Index As Integer)

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/db.mdb;Persist Security Info=False"
cnn.Open strcnn

Set zys = New ADODB.Recordset

zys.Open "轮胎档案", cnn, , , adCmdTable
If (Text1.Text <> "") And (Text2.Text <> "") And (Text3.Text <> "") And (Text4.Text <> "") And (Text5.Text <> "") And (Text6.Text <> "") And (Text7.Text <> "") Then

zys.AddNew
zys! "胎号" = Val(Text1.Text)
zys! "胎型" = Val(Text2.Text)
zys! "当前车辆" = Val(Text3.Text)
zys! "花纹" = Val(Text4.Text)
zys! "单价" = Val(Text5.Text)
zys! "行走公里数" = Val(Text6.Text)
zys! "备注" = Val(Text7.Text)
zys .Update

MsgBox "

vb中如何保存text里的数据 VB中text问题 vb中text问题 VB中，text这么用代码改变？ vb中text控件问题 VB中text控件问题 VB Text 保存 VB问题,从串口接收的数据显示在几个TEXT中,如何把数据存入SQL SERVER数据库中 vb中datagridl与text的问题 VB Text1.Text中文字替换问题。