Dim m as DataRow = DataSet11.TableName.NewRow
  m( 0 ) = "lala"
  m( 1 ) = "lalalala"

DataSet11.TableName.Rows.Add(m)

 Dim m As DataRow = DataSet11.Table1.NewRow
        m( 1 ) = test.Text
        m( 2 ) = test1.Text

        Dim int As Boolean = False
        For Each row As DataRow In DataSet11.Table1.Rows
            If row( 1 ) = m( 1 ) AndAlso row( 2 ) = m( 2 ) Then int = True
        Next

        If int = False Then
            DataSet11.Table1.Rows.Add(m)
            MsgBox("not duplicates")
        Else
            MsgBox("duplicates")
        End If