Tengo un pequeño problema con el datagridview lo que pasa es que hago una consulta sql y trato de llenar los campos del datagrid pero en vez de agregalos abajo me lo agrega a los lados...

imagenes








codigo:

Dim con As String = "select a.n_reg, a.anexo, b.area, a.solicitante, a.lo_ce, a.compañia, a.numero, a.fecha, a.hora, a.descripcion from tb_reglla as a, tb_regane as b where a.anexo = b.anexo and a.n_reg = '" & txtnf.Text & "'"
Dim com As New OleDbCommand(con, conexion)
Dim ds As New DataSet
Dim ada As New OleDbDataAdapter(com)
ada.Fill(ds, "conre")
If ds.Tables("conre").Rows.Count > 0 Then
DataGridView1.DataSource = ds.Tables("conre")
With DataGridView1
'.Columns(idreg).value = "@n_reg"
End With
txtnf.Text = ""
cbnf.Text = ""
If DataGridView1.RowCount > 1 Then
btim.Enabled = True
End If
Else
MsgBox("No se encontraron datos", MsgBoxStyle.Information, "Aviso")
End If