Visual Basic - modificar codigo a .net

Private Sub Form_Load()

  Dim db As Connection

  Set db = New Connection

  db.CursorLocation = adUseClient

  db.Open "PROVIDER=MSDASQL;dsn=" & getDSN() & ";uid=" & getUID() & ";pwd=" & getPWD() & ";database=" & getINITIAL() & ";"

  Set adoPrimaryRS = New Recordset

  adoPrimaryRS.Open "select UBI_Id,UBI_Codigo,UBI_Descripcion from Ubicaciones Order by UBI_Codigo", db, adOpenStatic, adLockOptimistic

  Set grdDataGrid.DataSource = adoPrimaryRS

  mbDataChanged = False

Public Sub Full_List()

    lstAhorro.Items.Clear()

    lstAhorro.Sorting = False

    Try

        Using cnx As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dSn)

            cnx.Open()

            Dim Pssw As String

            Pssw = txtName.Text

            sSql = "SELECT * FROM AHORRADORES ORDER BY NOMBRE"

            Dim cmd As New OleDbCommand(sSql, cnx)

            cmd.CommandType = CommandType.Text

            Dim DatAdapter As New OleDbDataAdapter(cmd)

            Dim rstAHORRO As New DataTable()

            DatAdapter.Fill(rstAHORRO)

            For Each row As DataRow In rstAHORRO.Rows

                Dim itemlist As New ListViewItem(Convert.ToString(row.Item("CLAVE")))

                itemlist.SubItems.Add(Convert.ToString(row.Item("NOMBRE")))

                itemlist.SubItems.Add(Convert.ToString(row.Item("EMPRESA")))

                itemlist.SubItems.Add(Convert.ToDateTime(row.Item("FECHAIN")))

                itemlist.SubItems.Add(String.Format("{0:C0}", row.Item("AHORRO")))

                itemlist.SubItems.Add(Convert.ToInt64(row.Item("DESAHO")))

                itemlist.SubItems.Add(String.Format("{0:C0}", row.Item("PRESTAMO")))

                itemlist.SubItems.Add(String.Format("{0:C0}", row.Item("PAGO")))

                itemlist.SubItems.Add(String.Format("{0:C0}", row.Item("SALDO")))

                itemlist.SubItems.Add(Convert.ToString(row.Item("STATUS")))

                lstAhorro.Items.Add(itemlist)

            Next

            cnx.Close()

            rstAHORRO.Clear()

            DTPicker1.Visible = False

            txtDate.Visible = True

        End Using

    Catch ex As Exception

        MessageBox.Show("Error : " + ex.Message + "", "¡Ocurrio el siguiente Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)

    End Try

End Sub