cn0.Execute "create table CJJT(编号 n(4) not null,阶段垂深 b(10) ,壁厚 b(10),环向配筋 b(10))"
rs0.Open "select * from CJJT", cn0
Dim num As Integer
num = rs0.RecordCount + 1
cn0.Execute "insert into CJJT values ( '" & num & "' ,'" & Val(h_t.Text) & "','" & Val(hz_t.Text) & "' ,'" & Val(Ax_t.Text) & "')"  
 
我怎么找不出错来,希望高手们帮帮忙