主题：老师帮忙看看,哪里错了?能精简吗?

Dim r As Row 
Dim TC, Tz  As String
Tc = "DTP1,TtB1,CbB1,DTP2,TtB2,TtB3,TtB4,TtB5,CbB2,TtB6,NmB"
Tz ="登记日期,姓名,性别,出生日期,年龄,地址,电话,联系人,费用类别,住院次数,医农保证号"
r = Tables("患者").AddNew
For n As Integer  = 0 to 10
       r(Tz.split(",")(n))= e.form.Controls(Tc.split(",")(n)).Value
Next