主题：如何写“包含”查询语句？

For Each dr1 As DataRow In DataTables("到会人员").DataRows

    Dim dr2 As DataRow = DataTables("联系人").Find("姓名 like '*" & dr1("姓名") & "*'")

    If dr2 Is Nothing Then

        Dim Result As DialogResult

        Result = MessageBox.Show(dr1("姓名") & "在联系人中没找到,中止查询吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If Result = DialogResult.Yes Then

            Return Nothing

        Else

            dr1("电话")= "没有找到电话号码"

        End If

    Else

        dr1("电话")= dr2("电话")

    End If

Next