Random record ใน access โดยจากสุ่ม 6 ข้อมูล ทำยังไงค่ะ vb.net

Dim DT1 As New DataTable
 DT1.Columns.Add("SN1")
 DT1.Columns.Add("NAME1")
 DT1.Rows.Add("1", "Test1")
 DT1.Rows.Add("2", "Test2")
 DT1.Rows.Add("3", "Test3")
 DT1.Rows.Add("4", "Test4")
 DT1.Rows.Add("5", "Test5")
 DT1.Rows.Add("6", "Test6")
 DT1.Rows.Add("7", "Test7")
 DT1.Rows.Add("8", "Test8")
 DT1.Rows.Add("9", "Test9")
 DT1.Rows.Add("10", "Test10")
 DataGridView1.DataSource = DT1

 Dim DT2 As New DataTable
 DT2.Columns.Add("SN1")
 DT2.Columns.Add("NAME1")
 Dim I, CNT, J As Integer
 Dim RS As New Random

 While DT1.Rows.Count > 0
     CNT = DT1.Rows.Count - 1
     Try
         J = RS.Next(CNT)
         DT2.Rows.Add(DT1.Rows(J)("SN1"), DT1.Rows(RS.Next(CNT))("NAME1"))
     Catch ex As Exception
     End Try
     DT1.Rows.RemoveAt(J)
 End While
 
 GridView2.DataSource = DT2

DataTable DT1 = new DataTable();
DT1.Columns.Add("SN1");
DT1.Columns.Add("NAME1");
DT1.Rows.Add("1", "Test1");
DT1.Rows.Add("2", "Test2");
DT1.Rows.Add("3", "Test3");
DT1.Rows.Add("4", "Test4");
DT1.Rows.Add("5", "Test5");
DT1.Rows.Add("6", "Test6");
DT1.Rows.Add("7", "Test7");
DT1.Rows.Add("8", "Test8");
DT1.Rows.Add("9", "Test9");
DT1.Rows.Add("10", "Test10");
DataGridView1.DataSource = DT1;

DataTable DT2 = new DataTable();
DT2.Columns.Add("SN1");
DT2.Columns.Add("NAME1");
int I = 0;
int CNT = 0;
int J = 0;
Random RS = new Random();

while (DT1.Rows.Count > 0) {
	CNT = DT1.Rows.Count - 1;
	try {
		J = RS.Next(CNT);
		DT2.Rows.Add(DT1.Rows[J]["SN1"], DT1.Rows[RS.Next(CNT)]["NAME1"]);
	} catch (Exception ex) {
	}
	DT1.Rows.RemoveAt(J);
}

GridView2.DataSource = DT2;