si me pueden explicar algo del datagridview

[Highlander]

Hola yo no utilizo access pero solo deberias cambiar la conexion.

Código:

Public Function LlenarGrid(ByVal Grid As DataGridView, ByVal CodigoHistorialClinico As Integer)


        'llena un grid con los productos que son insumos de una consulta clinica
        'parametros:
        'nombre grid


        'Alterno color filas
        mVisuales.EstiloGrid(Grid)

        mSqlServerCe.Conectar()

        Dim result As String = Nothing
        Dim CantidadRegistros As Integer = Nothing
        Dim sql As String = "SELECT Codigo, Nombre, PrecioIva, Cantidad, SubTotal FROM HistorialClinicoInsumo WHERE CodigoHistorialClinico = " & CodigoHistorialClinico & "Order BY Nombre"

        Try

            Dim da As New SqlCeDataAdapter(sql, conexionSql)
            Dim dt As New DataTable()

            da.Fill(dt)
            Grid.DataSource = dt

            'Actualizo total registros
            CantidadRegistros = dt.Rows.Count

        Catch sqlexception As SqlCeException

            MessageBox.Show(sqlexception.Message, "Error:", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Catch ex As Exception

            MessageBox.Show(ex.Message, "Error:", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Finally

            mSqlServerCe.Desconectar()

        End Try

        Return CantidadRegistros

    End Function

Luego para llenar el datagridview (dgvInsumos) hago:

Código:

 'Lleno el grid
sstlblCantidadRegistros.Text = mInsumo.LlenarGridProductosInsumos(dgvInsumos, txtNombre.Text)