主题：[求助]学习代码，请问哪里出错了

在学习帮助文件的 开发部分 ，请问 我这段代码 注译部分 哪里错了？总提示错误

Select Case e.DataCol.name
Case "身份证号码"
If e.DataRow.IsNull("身份证号码") Then
e.DataRow("籍贯") = Nothing
e.DataRow("性别") = Nothing
e.DataRow("出生日期") = Nothing
e.DataRow("年龄") = Nothing
Else
e.DataRow("性别") = ReadSex(e.DataRow("身份证号码"))
Dim d As Date = ReadBirthDay(e.DataRow("身份证号码"))
e.DataRow("年龄") = Date.Today.year - d.year
e.DataRow("出生日期") = d
'
'Dim bm As String = e.DataRow("身份证号码").SubString(0,6)
'Dim cmd As New SQLCommand
'cmd.C
'cmd.CommandText = "SELECT DISTINCT 籍贯编码 FRO M {身份证籍贯编码} WHERE [籍贯编码] = '" & bm & "'"
'Dim dt As DataTable
'dt = cmd.ExecuteReader()
'For Each dr1 As DataRow In dt.DataRows
'e.DataRow("籍贯") = dr1.DataRow("籍贯")
'Next

End If
End Select