Как слить из нескольких полей базы данных, доступ к данным одного столбца datagridview в ФО VB.NET используя набор данных

---

Private Sub FLEX1_LOAD()
      DataGridView1.Rows.Clear() 
      Dim strsql As String
      Dim rs2 As ADODB.Recordset
      strsql = "select * from voterlist where AREAID='" & Trim(lblAreaid.Text) & "'"
      rs2 = New ADODB.Recordset
      Call dbconnect2()
      rs2.Open(strsql,conne2,ADODB.CursorTypeEnum.adOpenStatic,ADODB.LockTypeEnum.adLockPessimistic)
      If rs2.RecordCount > 0 Then
       rs2.MoveFirst()
       For I = 0 To rs2.RecordCount - 1
          DataGridView1.Rows.Add(1)
          DataGridView1.Rows(J).Cells(0).Value = J + 1
          DataGridView1.Rows(J).Cells(1).Value =rs2.Fields("ID").Value
          DataGridView1.Rows(J).Cells(2).Value = rs2.Fields("NAM").Value & " " & rs2.Fields("SURNAME").Value & "/" & rs2.Fields("RTYPE").Value & "-" & rs2.Fields("RNAME").Value & " " & rs2.Fields("RSURNAME").Value
          DataGridView1.Rows(J).Cells(3).Value = rs2.Fields("AGE").Value
          J = J + 1
          rs2.MoveNext()
       Next
      End If
      rs2.Close()
      rs2 = Nothing
      conne2.Close()
End Sub

Что я уже пробовал:

Как преобразовать набор записей в набор данных, потому что в то время как еще 200 данных загружаются в datagridview, который после datagrid был очень медленным, поэтому я хочу, чтобы мой код изменился, чтобы загрузить datagrid по набору данных, но я не знаю кода набора данных, как объединить несколько полей данных базы данных в один столбец в datagrid, поэтому, пожалуйста, помогите мне...

---