Grid con datatable

El código de abajo llena el grid fpalumnos de una colección de alumnos
Dim sheet As FarPoint.Win.Spread.SheetView = Me.fpAlumnos.Sheets(0)
Dim r As Integer = 0
Me.fpAlumnos.Sheets(0).RowCount = 0
For Each alm As Alumno In esc.Alumnos.GetColeccion
sheet.RowCount += 1
sheet.SetTag(r, 0, alm)
sheet.SetText(r, 0, alm.Nombre)
sheet.SetText(r, 1, alm.Paterno)
sheet.SetText(r, 2, alm.Materno)
'Me.variables(alm) ejemplo de clonacion
r = r + 1
Next
pero ahora tengo lo siguiente:
Dim tb As DataTable = Me.tablas.Tables("tblAlumno")
For Each a As Alumno.Alumno In esc.Alumnos.GetColeccion
Dim dr As DataRow = tb.NewRow
dr.BeginEdit()
dr("idalumno") = a.IdAlumno
dr("curp") = a.Curp
dr("nombre") = a.Nombre
dr("paterno") = a.Paterno
dr("materno") = a.Materno
dr.EndEdit()
tb.Rows.Add(dr)
Next
Como hago para llenar el grid pero ahora lo toma de un datatable que es "TB"
Pero con código no con lo siguiente:
Me.FpAlumno.DataSource = tb