LOOP PARA APAGAR REGISTRO

 
        [ô]ler arquivo de cep
        Dim conexao As OleDbConnection
        Dim Sql As String
       conexao = New OleDbConnection([Ô]Provider=Microsoft.ACE.OLEDB.12.0;data source=[Ô] & OfD1.FileName & [Ô];[Ô])
        conexao.Open()
        Sql = [Ô]select L.log_tipo_logradouro,L.log_no,L.cep,L.ufe_sg as UF,M.loc_no as Municipio,M.cep as Faixa,B.bai_no as Bairro from ((log_logradouro L[Ô] _
        & [Ô] inner join log_localidade M on L.loc_nu_sequencial=M.loc_nu_sequencial)[Ô] _
        & [Ô] inner join log_bairro B on l.bai_nu_sequencial_ini=B.bai_nu_sequencial)[Ô]
        Try
            Dim da As OleDbDataAdapter = New OleDbDataAdapter(Sql, conexao)
            Dim ds As DataSet = Nothing

            Dim Logradouro, Bairro, Municipio, UF, CEP As String

            ds = New DataSet()
            da.Fill(ds)
            
            [ô]completou a busca, agora insere
            Dim SqlInc As String = [Ô]INSERT INTO CEP(Logradouro,Cep,Bairro,Municipio,UF) values (@logradouro,@cep,@bairro,@municipio,@uf)[Ô]
            For index = 0 To ds.Tables(0).Rows.Count - 1
                Logradouro = ds.Tables(0).Rows(index).Item(0).ToString & [Ô] [Ô] & ds.Tables(0).Rows(index).Item(1).ToString
                Bairro = ds.Tables(0).Rows(index).Item(6).ToString
                Municipio = ds.Tables(0).Rows(index).Item(4).ToString
                UF = ds.Tables(0).Rows(index).Item(3).ToString
                CEP = ds.Tables(0).Rows(index).Item(2).ToString
                [ô]inserir na tabela ceps
                Dim parametrosNomes(4) As String
                parametrosNomes(0) = [Ô]@Logradouro[Ô]
                parametrosNomes(1) = [Ô]@Cep[Ô]
                parametrosNomes(2) = [Ô]@Bairro[Ô]
                parametrosNomes(3) = [Ô]@Municipio[Ô]
                parametrosNomes(4) = [Ô]@UF[Ô]

                Dim parametrosValores(4) As String
                parametrosValores(0) = Mid(Logradouro, 1, 50)
                parametrosValores(1) = Mid(CEP, 1, 8)
                parametrosValores(2) = Mid(Bairro, 1, 50)
                parametrosValores(3) = Mid(Municipio, 1, 50)
                parametrosValores(4) = Mid(UF, 1, 2)

                Dim command As New SqlCeCommand(SqlInc, connection)
                FillParameters(command, parametrosNomes, parametrosValores)
                command.ExecuteNonQuery()
                command.Dispose()
            Next
  

  
         Dim cnn As New SqlConnection(provider caminho do bd)
         Dim cmd As New SqlCommand([Ô]select * from dados[Ô], cnn)
         Dim dr As SqlDataReader
         cnn.Open()
         dr = cmd.ExecuteReader()

         If dr.Read Then
             TextBox1.Text = dr.Item(0)
             TextBox2.Text = dr.Item(1)
         End If

         dr.Close()
         cnn.Close()
 

  
        Dim con = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\cep2014.MDB[Ô])
        con.Open()

        Dim sql As String = [Ô]select ufe_sg,ufe_no FROM log_faixa_uf[Ô]
        Dim CD As New OleDbCommand()
        CD.Connection = con
        CD.CommandText = sql
        Dim DR As OleDbDataReader = CD.ExecuteReader

        Do While DR.Read
            MessageBox.Show(DR.Item(0))
        Loop

        DR.Close()
        con.Close()
 

Try
	Dim sql As String = [Ô][Ô]
    
	sql &= [Ô]INSERT INTO COL11 (DZ1,DZ2,DZ3)[Ô]
	sql &= [Ô]	SELECT A.DZ1, A.DZ2, A.DZ3[Ô]
	sql &= [Ô]		FROM DADOS A[Ô]
	sql &= [Ô]		LEFT JOIN COL11 B ON (B.DZ1 = A.DZ1 AND B.DZ2 = A.DZ2 AND B.DZ3 = A.DZ3)[Ô]
	sql &= [Ô]		WHERE B.DZ1 IS NULL[Ô]
    
	Dim con = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\Banco.MDB[Ô])
	con.Open()

	Dim objCommand As New OleDbCommand(sql, con)
	Dim LinhasAfetadas As Long = objCommand.ExecuteNonQuery()
    
	If LinhasAfetadas > 0 Then
		sql = [Ô][Ô]
		sql &= [Ô]SELECT A.DZ1, A.DZ2, A.DZ3[Ô]
		sql &= [Ô]	FROM DADOS A[Ô]
		sql &= [Ô]	LEFT JOIN COL11 B ON (B.DZ1 = A.DZ1 AND B.DZ2 = A.DZ2 AND B.DZ3 = A.DZ3)[Ô]
		sql &= [Ô]	WHERE NOT B.DZ1 IS NULL[Ô]
		
		Dim objCommand1 As New OleDbCommand(sql, con)
		OleDbDataReader oDataReader = objCommand1.ExecuteReader(CommandBehavior.CloseConnection);
		Dim dt As New DataTable
		
		dt.Load(oDataReader)
		
		If dt IsNot Nothing and dt.Rows.Count > 0 Then
			For i As Integer = 0 To dt.Rows.Count - 1
				sql = String.Format([Ô]DELETE FROM DADOS WHERE DZ1=[ô]{0}[ô] AND DZ2=[ô]{1}[ô] AND DZ3=[ô]{2}[ô][Ô], dt.Rows(i)(0), dt.Rows(i)(1), dt.Rows(i)(2))
				
				Dim obj As New OleDbCommand(sql, con)
				LinhasAfetadas = obj.ExecuteNonQuery()
			Next i
		End If
	
		MessageBox.Show([Ô]Importação Concluída[Ô])
	Else
		MessageBox.Show([Ô]Nenhum item importado[Ô])
	End If

Catch ex As Exception
	MessageBox.Show([Ô]Erro:[Ô] & Environment.NewLine() & ex.Message(), [Ô]Erro[Ô])
Finally
	con.Close()
End Try

  
        Dim con = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\cep2014.MDB[Ô])
        con.Open()

        Dim sql As String = [Ô]select ufe_sg,ufe_no FROM log_faixa_uf[Ô]
        Dim CD As New OleDbCommand()
        CD.Connection = con
        CD.CommandText = sql
        Dim DR As OleDbDataReader = CD.ExecuteReader

        Dim sqlExcluir As String
        Dim comandoExcluir As New OleDbCommand()
        comandoExcluir.Connection = con
        Dim Contador As Integer = 0
        Do While DR.Read
            [ô]MessageBox.Show(DR.Item(0))
            sqlExcluir = [Ô]delete from log_faixa_uf where ufe_sg=[ô][Ô] & DR.Item(0).ToString & [Ô][ô] and ufe_no=[ô][Ô] & DR.Item(1).ToString & [Ô][ô][Ô]
            comandoExcluir.CommandText = sqlExcluir
            comandoExcluir.CommandType = CommandType.Text
            comandoExcluir.ExecuteNonQuery()
            contador += 1
        Loop
        DR.Close()
        con.Close()

        MessageBox.Show(Contador & [Ô] Registros excluidos[Ô])