problem med DataGrid, hur kan jag lgaa till data?

        Dim dtCol As DataColumn

        Dim arrStr = New String(3) {}

        arrStr(0) = "Col 1"
        arrStr(1) = "Col 2"
        arrStr(2) = "Col 3"

        Dim dataTable = New DataTable("ss")

        Dim i As Integer

        For i = 0 To 2
            Dim str As String = arrStr(i)
            dtCol = New DataColumn(str)
            dtCol.DataType = System.Type.GetType("System.String")
            dtCol.DefaultValue = ""
            dataTable.Columns().Add(dtCol)
        Next i

        DataGrid1.DataSource = dataTable
        dataTable.LoadDataRow(arrStr, True) ' <-- får felet: "Input array is larger han the amount of columns" ( översatt från finska )
        DataGrid1(0, 0) = "olle"
        DataGrid1(0, 1) = "olle"
        DataGrid1(0, 2) = "olle"