Listo compañeros ya lo pude solucionar, lo hice de esta manera:
Código:
Estado = "A"
'REFERENCIAMOS EL OBJETO DATATABLE AL CUAL ESTA ENLAZADO EL OBJETO DATATABLE.
Dim sdatatable As DataTable = DirectCast(Me.equivalencias.DataSource, DataTable)
'CREAMOS EL OBJETO ROW PARA ALMACENAR LA FILA.
Dim Fila As DataRow = sdatatable.NewRow
If Me.equivalencia2.Text <> vbNullString Then
If Me.equivalencia3.Text <> vbNullString Then
If Me.cmbequivalencias.Text <> "" Then
'AÑADIR EL REGISTRO A LA GRILLA.
Fila.Item(0) = Me.equivalencia2.Text
Fila.Item(1) = Me.equivalencia3.Text
Fila.Item(2) = Me.cmbequivalencias.Text
Fila.Item(3) = Estado
Saludos.