将选择对话框的资料输入窗体的选项卡一项目中，代码错误

代码如下：

Private Sub Command1_Click()
Me.T1 = ""
If Len(xzz) > 0 Then
 If Right(xzz, 1) = ";" Then
  xzz = Mid(xzz, 1, Len(xzz) - 1)
  Me.T1 = xzz
 Else
  Me.T1 = xzz
  End If
  End If
If Len(Me.T1) > 0 Then
 Forms!保险资料!承保险种 = Me.T1
Else
 Forms!保险资料!承保险种 = ""
End If
DoCmd.Close

End Sub

T1是已选择的保险