主题：[求助]调用的目标发生了异常

Dim dt As DataTable
dt = cmd.ExecuteReader()
e.DataRow("籍贯")=(dt.DataRows(0)(0))

改成

Dim dt As DataTable
dt = cmd.ExecuteReader()

If dt.DataRows.Count > 0 Then
    e.DataRow("籍贯")=(dt.DataRows(0)("籍贯"))

End If