Visual Basic.NET - codigo vb6 a codigo vs 2017

Dim cn = New SQLConnection("Cadena conexion")

    cn.Open()

    Dim cmd = New SQLCommand("Sentencia SQL", cn)

    Dim rd = cmd.ExecuteReader()

    Dim dt = New DataTable()

    dt.Load(rd)

    cn.Close()

For Each dr As DataRow In dt.Rows

	Console.WriteLine(dr("NombreColumna").ToString())

Next

Try

    Dim Ruta As String = Nothing

    Ruta = "C:\Cooperativa\Cooperativa.mdb"

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

        cnx.Open()

        Dim Pssw As String

        Pssw = TextBox2.Text

        sSql = "SELECT * FROM USUARIOS WHERE CLAVE = '" & TextBox1.Text & "'" & " AND PASSWORD = '" & EncryptStr(Pssw) & "'"

        Dim cmd As New OleDbCommand(sSql, cnx)

        cmd.CommandType = CommandType.Text

        cmd.Parameters.AddWithValue("CLAVE", TextBox1.Text)

        Dim lectura As OleDbDataReader = cmd.ExecuteReader()

        If lectura.Read = True Then

            UserName = CStr(lectura(2))

            UserLogin = CStr(lectura(3))

            strClave = CStr(lectura(4))

        End If

        cnx.Close()

        lectura.Close()

    End Using

Catch ex As Exception

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

    rstUSERS = Nothing

End Try