Boa tarde,

Bom estou com prolema , preciso aplicar uma select exemplo:

" select * from anunciante where anuncianteID > 5 "

Seria possivel aplicar dentro deste codido.

 

Private Sub print2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        Me.ItemedicaoTableAdapter.Fill(Me.Bd_oticaDataSet.itemedicao)
        Me.AnutelefoneTableAdapter.Fill(Me.Bd_oticaDataSet.anutelefone)
        Me.AnuncianteTableAdapter.Fill(Me.Bd_oticaDataSet.anunciante)

      
        Dim nRows As Integer
        Dim dr As DataRow
        Dim cont As Integer = 0

 

        Try

            nRows = Bd_oticaDataSet.anunciante.Rows.Count - 1

            While cont <= nRows
                dr = (Bd_oticaDataSet.anunciante.Rows(cont))
                MsgBox(dr("nome"))

                cont = cont + 1
            End While

        Catch ex As Exception
            MessageBox.Show("Erro: " & ex.Message, "Sem conexão", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try

        MsgBox("fim")

 

    End Sub

 

Desde de já agradeço a ajuda