how to store array values into datarow

Hi I have   string array values in
_Entry_Id="1,2,3,4"

Dim _arr_Entry_Ids() As String = Split(_Entry_Id, ",")
i want to store this array values in datatble column
dt = New DataTable
dt.Columns.Add("v1")
dt.Columns.Add("R1")
For i as integer 1 to 5
dr("v1") = _arr_Entry_Ids
dr("R1")="some text"


Next

...