那就试试
Dim tbx As WinForm.TextBox = e.Form.Controls("txtfind")
Dim nm As String = tbx.Text
Dim dr As DataRow = DataTables("员工").Find("姓名 like '%" & nm & "%' ")
If dr IsNot Nothing Then
Dim zs As Integer = Tables("员工").FindRow(dr)
If zs >= 0 Then
Tables("员工").Position = zs
End If
End If