Dim ids As String
Dim lst As new List(of String)
Dim cnt As Integer = DataTables("员工").DataRows.Count
Do
    Dim Id As Integer = rand.Next(0,cnt)
    id = DataTables("员工").DataRows(id)("_Identify")
    If lst.Contains(id) =False Then
        lst.Add(id)
    End If
    ids = ids & id & ","
Loop While lst.count < 5   \'5是要抽取的行数
Tables("员工").Filter = "[_Identify] In (" & ids.Trim(",") & ")"

为何定义为字符型而不是整型？

你指的是这个？ Dim lst As new List(of String)

你可以定义成整型的，问题不大。

不是说_Identify是整型吗？而定义为字符型也不出错呢？

字符型可以接收整型，就像 双精度小数可以存放单精度小数也可以存放整数 一样。规范一些，你可以定义成整型。