Visual Basic - Busqueda de productos

Private da As Data.SqlClient.SqlDataAdapter

    Private ds As Data.DataSet

    Private dcmd As New SqlClient.SqlCommand

    Private dt As New DataTable

    Private fila As DataRow

    Private bdsource As BindingSource

 Private Sub LlenarGrillaArticulos()

        Modulo.conectar()

        ds = New DataSet

        da = New Data.SqlClient.SqlDataAdapter("SELECT * FROM TablaArticulos", miConexion)

        ds.Tables.Add("TablaArticulos")

        da.Fill(ds.Tables("TablaArticulos"))

        da.Fill(dt)

        ArticulosGrid.DataSource = ds.Tables("TablaArticulos")

    End Sub

Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Modulo.desconectar()

        LlenarGrillaArticulos()

        FormatearGrillaArticulos()

        Dim fila2 As DataRow

        BuscarArtTB.AutoCompleteCustomSource.Clear()

        For Each fila2 In dt.Rows

            BuscarArtTB.AutoCompleteCustomSource.Add(fila2.Item(1).ToString)

        Next

        ArticulosGrid.MultiSelect = False

        Modulo.desconectar()

    End Sub